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Y&, ;£Jj£2. 7X^^ 0 



2. 7 Wi 



[0081] Ktbtt, j»^^&fflV^£g&;h^K&#&^^fc£o I 

oift^w^, coDiem^ra, (02)?fck^, (03)«g*ra, m&m&m, m 

[0082] ##2. 6(012)-Cftbttfc6mf^©3g^O^«, r©$^©fil:^otV^o 

[0083] &&<Dmm*.ft&m±.x*f$.±Lu nm*±.m<D&mxj$,iLirz> 0 ap*,, 
gtrnxfemztizmmzmm-fZo 



(oimmxmmtstizm® 
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03. 

04. # 

Mo 



5o ®5#m 0 



[0085] tfl* 



mm, &mmmm 



[0086] m^xmmznzmnmmvmmz s B^^^^ttw^^r-r^^-efe^*^ 

01. ^b#fiW 

02. fl^iSfC 



03. ^bS^iS^ 



[0087] ^fc, iB^s#^^3i^^ffiO)Sm^, 

[0088] :fc#2. 8(D2. 8. 2"e^-<-5 0 



[0089] 



|I|£j$:&£i2:51fllI!telI|9#f& 0 
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t=3 



2. 7. i a 



/©.Hi 



[oo9i] u&»u M^mm\tMm<Dm^un^ib^\ 



fiPfialft^Sfc-t"Si:, 3fi^±fIoiIUj:v ^%cm<DMwm*%mm tvx , 



[0092] 
[0093] 



[0094] 
[0095] 



(02)3 



mmmm<Dnm*3£<Dmmz.m-rmmm*x&z>, 
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[0096] mmmmvm&mffi mm x t-jsu m^mm<o ^mmmi^m^m^ 



[0097] 



^(DWoii, Mmx 



[0098] z<Dmmx*tpm*m%ti}-£, mmmttf&$&'&z>&pg\zmz>. 
[0099] *»?#jetfctt*xfif, m&mm<o&i***&i¥RK&tto 



[oioo] mmzi&, nm&m<Dmfttteznmii*i!>mmmtt&t>ti\i, k©h#i4 

[oioi] teffi©»^l>lRl«<o*f|»!:*5o 



2. 7. 2 



> — 4 ~ /cv 



[0102] fc&mm&fem<Dm£;izM*iii, im<z>m&mm&fem£tiz>o m&Mm<D®&i 



^m^^i~^b3mu±xK^mm^^^^m(Dmmm^mmbir^m. 

[0103] {bl, ^^w^wiws^^fiiariwftfenso * a^iei-„ 

mm x M&<&mm.m&\<D&n<Dx>b^&, mm x M&taR&& J **.z>MMbf£&o 
&ti&mm x M&mbm-r 0 mm x m&m \z.mir9cm<Dmm x M&&&&mm 
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[0104] mm x mm x M&&fefc&zw&xrpmt)m%titt, &mffi*<Dfem& 

[0105] m^m^mmx m&mffi<n&mmm^mwmxmx7&uir%&mmm. 
[0106] &<D%i$k, m&mm&)&&.-f-z> 0 

[0108] mfc&m&mm&ti:tfti\t, ^m&feffi&m&tttm&mmfe&^te^ 

[0109] cKDaga-e^iff^^tv^, mmm^^^^m^m^o 

[ono] mmm&fr&^mtmttetftiit, ^mm&femir%&cmizmts>o 

(03)**^^ 

[on2] tsi+* m±&m<Dm&xhzMf&m+tmmmT\z.mi?M, &<Dmm* 
[oii3] mfacDm&hmwk^nKteZo mu m^mnMm^m^>m^-^mmir 
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[oii4] z<Dmm%}&±tsikz>m&.mm<D{ / Em&, 



cons] mi&^te, ^(Dmmmm<Dmmcmirnmm*(Dmmtmmix»3b<9, k^co 
[oii6] ^©li^i^i^fio^fflir, mmtmTo 



[oii7] Mo^^fc-ram x 



[0118] 
[0119] 



mm x m&n<nm%L<o®& ^<dmm x %-&*:<&%\scm& 0 



[0120] K<^m, ^mmm&f$.$.irz>, 
[0121] m&nz^mmm^-i!)^m&mm<Dmfc, mvzmo) 



[0122] 



[0123] 



my 



25? 
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[0124] 
[0125] 



[0126] mtoK£9, 



mestizo &<Dmz£m<Dm&<Dmm>mmirz>, 



[0127] %s$L<DW&hn^<D 



\zj3&o feu ^MQmnmmQm 



2. 7. 4 



• tt, 



(01) 



[0128] (a a-vm^m^mm^mmm^m^xm^Mm^mm-mirnit, 
[0129] (a a-i)m<om^^<D^xizmm^\^xhtif£ntiit, &<o)img&& 



[0130] roafijg-ef »r*Sje#ttfi, IftJffllS^^i^saBU!:^*. 
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[01313 mmm&tiR^*m^ti:tfti&, mt&mmm&mmirz>&.mzj&tt 0 
[oi32] ^m^m^mm^'Dmii^mmw.^x^m^^xmjv'v^o^, & 

[0134] mmiz£V), i^m.&m<Dmfcxfo%mmmT*mmm^'^frfr& , ^mm* 
2. 7. 5 m^mmm. 

grMmmi*, &<D±X&^7tXW£thX\,^frtfXfets:\\ rtUS, ig^^rSai- 

[oi36] i<D*^^8Sc#i-^^^, #m5gmM^^p>fk;#m^^^-r?)f^ffl^^cs 

-To 

oi. ^(DifmTim^^m^x^m^m^^Eir^m^^mm, ep*>, 
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[1,2, 3,—-] 

[(1, 2), (1, 3), (1, 4) — - , (2, 3), (2, 4), (2, 5) — -, (3, 4), ••••] 

06. &m.mimtmmx, Y^hmtc^mmzom^^m-r^m^mo 

07. P>fk#miS^^^«^.5nt?^^n5o 

09. #m^b#^xo^^j-^f^fflb^^tv^, Wimmttf$.ms*tz®Lmz. 



11. a ^i^fb-e^fc#aas«^ir-rtu«, #m^«»«>j*iaB#«>«i«^K 



(02)#m^b# 

02. ^Y^JRttlcJS^aWS^O^W^Sr^c/jNOlOI^M^So 

03. _hfE0l, 02£D^f^iE-7-^li|M#^*j-i^#{t?)o 

04. ttfoWtfbn%mmiM*<DQmm&&x>Yb%:zm&izm'9, xtYcom^ 
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06. &mm4k&?mzkYfrbmizttm{mt&mMm) <om&&&mir5&<D{E 
[oi37] zzre, mwRmtowmm* <Dmm*mm-?&ti&, soitt^^ g & 

2. 7. 6 g ssggc 

[0138] vLO g &!l^b#^5£g&;h^3i«l£«Mb g ^^^IEi- 0 

[0139] i^*Mk#f4, #*2. 7<D2. 7. TV^f^bo Uit g ^5*^Hft:f*, g^Ffl 
2. 7. 7 ttfcg&iitt 
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[oho] rot^i^, z<Dmm(DmmzmTmmm*<Dmm^mmzt£%w&&frz 

o r.<©*tt**2. 7^2. 7. rcii^s I j^b#tMM»isa:5o 

[0141] S^^b^^fflco^^Vv^T^^i-o 

[1. 2, 3, •-] 

[(1, 2), (1, 3), (1, 4) — -. (2, 3), (2, 4), (2, 5) — -, (3, 4), ••••] 
03. M 

05. g msfti g &*Mtett<0J&aJG#t-fEv ^»Hfr£*b5. 

09. i^P>fb#^^xo^*f^f^fflL^tv^, Ml^^i^S^tc 



10. g %m4k^&nMm&f&tt~fiY£, 5 1 g mmwmm^m^^ 

11. & 

(02) g 
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02. mmY<Dmmm-tmmm^-(D^mm&^M^)mi^^o 

06. ttJtMtfbfrft^YnmwLm^te, mtctm^^mm<7)m\^m^t\,xm 
[0142] ^ut, m^^mmm^mm^mmxhtut, ^<Dmnmm^m^m 

[0143] mitft%mn^fim^<DmR$:Mx-x\,^ti&, &iw<vmmm^-tfm\-£frz> 0 •$ 

2. 7. 8 {R&#&OjRtefc||^54K&0>&0>®aS 

(02)^5fi-er±K©^OH*«>«fcl: f*^ i: ISIS "C^a^ *b«t>© £i~5o Mfc 
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[oi44] ^m^m-f^m^, mm<Dtkmz.m^ttte&&&M.mzm^<ftte^7£mis 

^-xJbUtl^XWMHnh^o 
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[0145] *W%"Ctt**ii«lW:, ;ti&j*gU£J:9jB&ffc£;Jx, m&tot&m-etite 

[oi46] ^(DM&*mvkb-rz>mm&&mmm-?hz>o 

[0149] ^(DmKvxnmm^w.^n^m^m\^t'r^Mm^mit^mmm-^^o 

[0150] Mik&mmm&f&iLL-Xh, »o*T?r g b&3#£j ^3g«Wi*5*>rJ- 
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[oi5i] &<Dmtm&&m&tirzmmi*Mfc&mmmx*te&mto \ &&mm& a m 

02) a ^fb#te#ms^b#^ W5f£ffl -e, i £&g§KMt^;iS£ft; a 3&i§^js 

(33) a ^^b#T-S'i4^Mi-^^ (f&siijjim (Dmm^mztethte, ^<Dm\t a 
[0152] m<Dmz.£o, smmikm-t^iku ^mm^mmm^t^> 0 mh, &mmit& 

(36) r a Bfc3#aEj KlW:«|»W-t-iiilSr*5eb. 

(37) 2W3F^-ctt@fBB a mmztettzmmx&t&£x r a a&5##j sr^u 



2.8 a e&5#&c£>^-7 i > 
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[0153] g ^t^vx0.±ir^m(Dt^±i^&^f)^m^^mm^^'r^x-h 
[0154] »lt, ^mmztevrz^mmRmm) \% K<D&&mmmm)w i-k©^ 

[0155] ##JSrf #fettfllRj»S:^U I!l^t#i5E^^I'»^^fc6*?:f 
[0157] W^ETiS, ^M8^r±^T g B&5#&£ft5 0 ^tf>t>£ot>£oas g 

6iji©*36»6>, g b*s#^h:, (oi)#M^m, mm^-mrn, mmm&f&&£ 



[0158] 



2. 8. 1 RBjfi 
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[0159] 



[0160] m&iz9txi&*&is**izm&, «5#5g«ttfifesc*r5o m^to^ 



A — I— k Ao. 



2. 8. 2 

[0162] issrera, m^m^m^t g ^§^^#^#5*f£fc9##v \ u>»u 



[0163] ^o#^op<b g ^gcas^MiC-r-fcSo ft§ri"Hrf , #Mi*«tei*se«<z> 

2. 8. 3 MM^^/V 

[oi64] mx, &mmm<Dmm*m<Dmfc g ^»^#^i£5et*r<d^#^^<^ 
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2. 8. 4 Mm<D^r'r;v 

[oi65] mx, ffifimmnmmzmirnmifc^ffimxn^tetz^o 

[oi66] n<D%t&mmtirfr\t, mmmm^z&4k&m£x»mm<Dmnf%tt 



2. 9 S^^e^Vv 

[0168] ^(Dft&fim&Xfem&tlZft&XhZo 

[0169] #£<»*te, ^(D#?£^J;<935^iifeib^„ Z.(Dftl£j)m#>Z>m 

§#+Bo*T'fe§o me&tt&irtite, ^.(D^mm^n^o 
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[0170] m4kbJfflb&mM1r&&(Z>&<^1bZo 

2. 9. i m&r<oifc& 



[0171] umb, |!E^^^fc#^MS&«P^©3©@^^^iik^^Bi#^^d^^fc 



[0172] jsut, ^o^bdsff ^mas^^ad^-tffcSo 
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o nwib\-zw£<Dti\ g ^mn*m.vkirz>t)\ M^t\twa<ot\ t>tt>ti*s&&m 
tifrtittLfirtim&fro frfit>tm.fam&\A*i)\ ^th^tim^mti^\ t>tit> 

[0174] ^b"C, ff&.kfflnt£(Di!)\ 

2. 9. 2 mwt 

[0175] *m2zx\% z.<Dm&tiz>M4k g mmm.^mt^ti^tEkw.iro 
[one] z.(Dmn&jt~irz>mz£<9, mit g mmmmKm-rnm^m^tE vmt g 

2. 9. 3 BK^ft 
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[0177] *m9ti*t*, z.<Dm&ti%mk £ f&mm&m&zrizft&k^rt'o 

cons] Ht3*-«Btfn5«Mka*!Sii!i»4, %m\&M^tm^&*swsm&bt£z> 

o 

[0179] m&<vftm it, £ ^mmm^^hm^n^mit £ ^mm^<^^xm 

2. 9. 4 fflfc 

[oi8o] mfc<Df&&-rz>tfj£te, m^mttfc&xhyfttfb, mm^wzftfetteZo 

2. 9. 5 pBt^ 

[oi8i] n<D&&.fe, -mm^mftftfetteZo 



f^3M iSM^M (TDM) 
[0182] ^W^S-ef*. ^OM^i©S^^V^T#^^^i-#^E^W^i- ; 5* : ^tj^5|5 

<fe><5 0 
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[0183] ##-ete, £. <DttM<D*:f;V (TDM) ^#"T5o 
3. 1 %ffe.(D\tLMM& 

[0184] JUft&O^-e, 5-<D i Bte^T^^-tt^t^tb&o 

(01) ^#fl;£*t54^ g ^<D&9m^Wbtt 0 

(02) im^tv5^oSB^^m5fe, ^^J^dsv^o 

(03) ftll«>R[Jfe©4-«>aBK:tt, ^»flsftv\, 

[0185] fl?#;6fc*jh^#&ttW^«rilE-T?, ^*xbf*ite©l^^i-^fc*£3&L , rv^ 

o 



3. 2 -g-^tfHtij& 
^:^3. 1<7>^<£> i B&-&^1-5ttm£r3£f§*5£ (PS) ^fBi~„ 

[0187] ^O^lCig^(D^#J^^v>e)^o fiP*>, 

(01)og*-e^*5fe-e^^V^B^rffiV^, ifi*-eb*3Kt?fc3&V^«)SBtt, flfcS: 

(03)ig*(o g ttm^^xmmzthZ>£r<D g Bf±, &Mmm<?>®&. i&fflwrw^i-s 
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[0188] PS<D#jgte|E|14, 15, 16, 17^**3^ 

[0189] ^(DUtifte, 7a©^^^©4a©^*fB«t-S^fflfg^3£«l$H5o 
[0190] g BT g BSr^i-5*G*0*-e*>5o PSt>£fc&&&Tj£i&ft3o b 

i^H-efcSo PS<D«5t«, g Bt£«?5ro<z>#££g B$rrt&1-5#&£i-5 0 

g Bmfl&*>5— oco^fete, g B£>ffi$fc£ g BO^it&So 
[0191] mJo, g B^m^fe^^ g B^^^tb5P#^5o JfcMfc, 4"© g BtePSSr 

[0192] 3L0Draa«rSEllRi-5^^, Bll2<DM^^1t3gf«*(7) g B/$^<D g BtftfHgftj 

[0193] m^±-(D^tm^<D g b, v±*j&<d g Bi^«#itbtv 

#£^&$fc£#5*§-a% ^o#^E«:^^$ti^o ^<D«^^HIi8T^$tb^ 0 

ENWtfi, ^g B<0#^E^T<^#»W$tbSo SP*>, 
(01)ag*T^*3l5Tt^VNg B<^)#?£^, PS2(Ell5)TiiE^$^o 
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(02Wte<D g B©#ft|i, PS3(HU6)-CfiEK£*t5o 

(03) i©*£> g S©#fti4, PS4(E114)T*|iEPJ$tb?)o 

(04) ^£#U^g B<D#&}3:, PS2-l(iai7)-eiiEM$n5, 

[0194] WfemZtlZ>M1&0>T&3s<O g B^M^S^ g B£f*Mft«3, 

3. 5 #^E(OmE^ 

© g B<^#£tf)fiEBJte, g Bom^fe^^^^^^SEK^^^i-tb^, *S 
(01)#fettg BSr^-f-S^©^fCS)S*s, ^©«efil±^<o#*E^#^5* 

(03)m^, mf\z.&&tt:, ftm#rtz&.frtz>o 
(05)#^(dw^«, g b^-t#^ (urn) (omv^-r^o 
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[0195] H113-e6tUT^$^#^^, #^3. lX^tlH02>)<D^X$>Z o Z.<DWite, & 
mi3X3— 5b\^X7jk£tl£fcl£i% lX7F&frLZ>(02)<D^XhZ> o Z.<DWste 

mmm(D&&%m^^XPS&f&±LttZ>T§£XfoZ>o*ffi9ZXfe, K;ft,£PS3, PS4i: 

ps2-kd %>(Dmfc, m-h, m&mm<vmm%mz&tt&&$:f&&£"£z> : &m.i-z 

■5T^$^#^«J;<9, ^(D&te&nmZf&iL^Zo PS4<D^^^i-S^?rP 

S4N, PS2C0^^?TRri^$^^?rPS2N-e^i- o ^©#toV^lt, HH7#fl^ 
o IH 13}*, ^±tD^^^LT^nTV^ 0 
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[oi97] zjnm'k, g tt&mm&%<Dtem&Mm<DW&x»&z> 0 m<Dm&Mm<D-; 

Jlo+#^#£&5 0 ^COPS^BI 1 5 (PS2) X^-t 0 
[0198] H^, n<DPS<Dftm^4mXfe%M(DimmXfoZmM(m2)dm^U L2T* 

SzE-efc5„ ^o*^ig^o^-e, ^<d g a?rPS3iUT^*$-frtv^, ^<dps3 
[0199] urnx, 4*£> g etf^^tf) g a^^tJB^^(D«, #m5S§^^5£-e&5o Kv> 

&M.T&m<D$&X, ^<D g B£PS4£LTJ&3££-B:;ft,fc£, $k<DT>S4te3c3&<D g 3?: 
m^-t-S^^^ir^o SP*>, ^<DW&(D^r<D g BO^te, PS33fetI ? ^PS4(D 
■g-^"eiiEPJ$tt5o PS3&IEI16, PS4%mi4X^1r 0 

[0200] mfc, &(DPs<DwtEtem4^xfe%m(DimnxfozjEMm2)&m^u L3, l 
M4^xwiw£ft%%m<Dm%i(m2)\a% Ktm£tiz>&mft&z>o ki*. ps3, 

PS4, ^t^^PS2-l-T?^3zE$tb§o 

(os)^m<d g a w^wtl^#£#£ 

, ua>u ^(D&^temm^mxfoZo ~<Dmmfe$i&<DMcmzm.frz>mmx 
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[0201] ^*V>&, iOSEWttHEiEStbS^oOPS, SP^, PS4N, PS2N-eS"^$tt5 0 
^tt^rPS2-li:L-C|g|17-C^i- 0 PS2-1, fiP*>, PS4N, &UH£PS2Nte J £*ven, 

PS4, Mt^PS2£|^f£$t;b*L5o 
PS4(D^2^^fir^m^<D^^rfflV>T*5l5<DSaj^5^$tl^dS, PS4 

[0202] HlC PS4N<DM4&ffi^m3z&<D&^(Df8 l ±L$;s:nU PS2N<D^4^ 
^i-^(D^H^#i~Jo ^U-C, ^(Dt^, PS20^}*@17-e^$tbSPS2N<Z># 

KfcSo PS4N©S"e3feSl$tbSPS2Nd5, PS2£rRrig£iiN5lc9tc3r^-t~o 

Hie, PS4N, 3fet^icps2isrc#^$tt5#^», ^4jS£-er±*M«>i®B>J"t**>s 

M(^2)*Ste^-t"5o PS2-lte, PS2, PS4^jE^tbSPS2N, PS4N"e^a$tV 
5 0 HlC, ^<DPS2N, PS4N-e-g-^$tl/ ; 5# ; fett, H4*T?liL2, L4"T*£«&&ft5 



3. 6 TDM©^i 

[0203] «HftlCjPl^#^r±PSfcJ:93»Kfcii:^Six5©T?, ENW, tfctFCTDM^*^ 
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[0205] ^<D—m(Dfcm&m&rmc£VPSi)mm&)$.±L£ j &z>o x^m, tdm^i 

^^»iB*^PS3-^PS4(Ojffi(^i:i-§ 0 ^LT, PS2 J $>PS2-mJttL^ft)$iL 

-rz> 0 z.<Dttmw£, &5mx*m^%mw&7&mirz4k£:(PKD)x*fe, ps4(ps2 

-l)^PS2^PS3<^Hl(^3ii-ao PS4(PS2-l)fi, PS2-l&PS4hfflVMfc$Lib 

(01) ps3<DM^tt^(Dmm 

(02) PS2<DM&lkb$£<Dimm 
(lQ3)PS4(DM^tt^<Dmm 
(04)PS3, PS2, PS4(DM&<Dffl%k 

[0206] ^Mx\^TDM(Di±m.(DMm^nMm^m v ^xmrn-r^ m, &<Dttm%m^m 

[0207] TDM^SF^IHgRi-^^^^^m^^^ib^o 
4. 1 S# 
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[0208] y?y<DW&, &&&ffi)&ttmEte3imbLxi<Lmwiirz>*&tomz>o ±m\% 

<DM&bL,XGLW:WrtbtiZo SP*>, ^frhnmW*l&J$rrz>h<DXlbZ> 0 



4. 2 ±m 

[0209] gp*>, 3Lm=i&m, mm<Dm&, ^m<Dmmx^ 0 

o 

[0210] ip*>, £fg= [£#, ^pffisiJ]-efc^o 

[02ii] *M2zxi% % ) m<DW5n\\±2zmht£z> 0 3%<DfemfeM2^£ti% 0 &m<Dm%\ 
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•fv-h (:7W^ m mtfVB (Dm) fcmz>=i~-}?(D—MXhZ>o 

imsG^mm^-mm^mKm^mmmBX'&m^^^h^hA mm) 
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[E! 125]^BJ<Z)-^^Sl-#^^a^aU 1 lT^a$^-<^h/VL3 (KOtlil^ 

cigi28]^0^ (D—mM^mKm^>Mmm.mi2xMm^ti^^h^3 go <d^ 
mi29wmw<D~nmftmizm%femmn2xfem£fr%^?h^3 go 



WO 2005/029322 



103 



PCT/JP2004/013806 



m 1 3 i]«§ m (D-mmmm K&zfemmm 1 2xmm^ti^>^h/^L4 (k) <dt ^ 
cm i32]^mm<D— mm^m K^^mum 1 3x^m^f^>^v^3 (k) <dt > 

•fis-b (zfvy7J*mm&VB<DM) 1^5=— K<£>— - MX2bZ> 0 

imi38]^mm<D-mmnm^m^mm.mi3xmm^n^>^w^4 (k> <d?^ 
mis9wmm(D—mm^m^m^mm.mi3x^m^ti^^b^i.2 go <d^ 

[iai4i]^^<D— mmm^^^mmmi3xm^f^^v^2{Yi)<D^ 

^U-h (/n^fM^VBOi) ^#.5=3— K<D— MXfoZ> 0 
[|E|142]^B^O-^W^^#^^aWJl3T^a$^^h^L3(K<DM^ 
%©]Ei) (D-r^^V-h (^n^A-g m&VB(D&\) {^5n-K<D-W-efc5o 
[|1|143]^0J(^— ^Jg^^#^^^MlJl3T^^$^^^h/WL3(K(DM^ 



WO 2005/029322 



104 



PCT/JP2004/013806 



[gj 146]*^ ^Jfe^^^^^amiU 1 3T^a$n^-<^h/WL4 (K©i4 

[l3148]*|i|0^<O— HJ6^l<:#S^a^MlJl3-e^a$^^^L4(K<D^^ 
[Bl49];*3fcW©— HJg^^^^a^IIJl4-e^$tb5^^L3 (K) (D^>- 
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Option Explicit 
Ken #DEFPUB 
Ben PIB4N2 

Private 9VJ1«. ei&2«e,W29^_B«02« As 3*23* 

Rem PUBIN2 

Private 8*Jie_e*2»S_e*2y$_«?*02* As 6%23« 
Rem PUD5C2 

Private CTRL_W©%30«_@%28t_flC29©_STS_TRANSinON_FLG As Integer 
Rem PUB5Y2 

Private CTRlJ8©toOfL@£28e'_f&29{LSTS_T RAKSI TT 0K_FLG_P As integer 
Reo PUBSB2 

Private CTRL_ff^O§_»3t26e_8*20§_STS.TRANSlT10N_PLG_PP As Integer 
Ren PUB6P2 

Private CTRLJ?&3&0&_8X3li*_e%28B jra29B N0T..VAUb_FLG As Bwuleau 

Rem tf DEFEND 
Rod SDEFPRV 
Ren PRV2T2 

Private W3t3@.«X3t9_9V^S«_f%2£»8_^02e_wk As KC23© 
Ren PRV7K2 

Private CTRL„TO30©_«t298_IKGJ?LG A3 Boolean 
Ren PUBKU 

Private CNS_NOT_KUiL§%23& As 9*2 3& 
Rem SPRV2DT2 

Rem SPRV2E2 
Rr.ia SPRV4W2 

Rem JPRV4E2 
Rem SDEFtND 

Public Sub ttainO 
Rem flVECREP Private Sub L2_&*3ie_eX28G_@*29e_9«<Q2eO 

D0X_i: 
Rera PRVLG 

If *@*3O^Le$&l*LW2ae_fra29G_e«02& - CNS NOT KUH 89S23* Than 

GoTo B0X_2 
End If 

GoTo Bl>X_E 

BOX 2- 
Rem PRVLG 

B0X.3: 
Ren PRV1.C 

If ?e*30e_e*3lO%28«_e*29S_e*&2§_wk <> CNS NOT XUH <#239 Th«n 

CoTo BOX. 4 
Pnd If 

GoTo BOX 5 

B0X_4: 
Fen PRVLG 
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R©a PRVLG 

CTRL ve%30©_W2»«_W2V«_5T$_TRANSITIOW.FLG = C7RL_?e»30^««2S@_@%29^STS_TRANSITTO^FI.C + I 
(JoTo D03LE 

B0X_&- 
Rem PRVLG 

If crRL„78%30§_e%288_^298_STS_TRANSIT10N_FLG_P 
= CTRL_»8«30^_e«2ft»_e%29e_STS^TFAMSITI(W_FLG_PP Then 
GftTo R0X_6 
End If 

GoTo BOX 7 

B0X_6: 
Rea PRVLG 

CrRL_»9X30§_&%3l«_W23^«H29»_e)k02«_NOT_VALlD_FLG - True 
Gclo B0X_E 

B0X_ 7: 
Rem PRVLG 

C.TRL_wa%30e_e*29§_TKC_PLC - True 
CoTo B0X_E 
BOX J*: 
End Sub 

Rem *** PRCEND 
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Optinn Explicit 
Sen ttDEFPUB 
Ren PUB1S2 

Private V«*308_Wl«.^89_^^^_W02eW26«,^27«) As <3*23G 
Ken PLB1N2 

Private eK31«_^2B^?b29«_^02e(*3t26©. 8*273) As S%238 
Rea PUB5C2 

Private CTRL_W30«_ei28t_&3(i29«^STS_TRANSlTTflK_FI.C As Integer 
Ren PUBGY2 

Private CTRL J*e*30e_^8§_3X29e3TS_TRAKSITT<>N_FLG_P As Integer 
Ren PURSB2 

Private CTRl_«^0^*3G2fift_e%29§_STS_TRANS]TION FLG PP As Integer 
Rem PUB6F2 

Private CTRL *©S3<J0 §*3ie_&5<288_^29&_W02*_NOT_VALlD_FLG (3*269, 6*27«) As Boolean 
Rem ifDEFEND 
Rem ftUEFW 
Re* PRV2T2 

Private K*^30©_^3lO*28&_e*29e_e£02@_<rk<e%2$§\ §*27g) As 6*23* 
Res PRV7R2 

Private C7RL_we%3Oe_0%29e , _TNG_FLG As Boolean 
Ren PUBKU 
Private CNS_S(VT_XUH_«%23» As 06233 
Private Gyou as Integer 
Private Relu as Integer 
Private Uti_Cut as Integer 
Privatw Suto_Cnt as Integer 
Private Uti.Max as Integer 
Private Sotojiax as Integer 
Rem SPRV2V2 
6*1528 
Rem $PRV2E2 
Rein $PRV41?2 

Rem SPRV4E2 
Ren SDEFEND 

Public Sub MainO 
Rem 6VECREP Private Sub L2_^31§_«K280_e%29§_iKO2«O 
Gyou = 0 
Rctu " 0 
Rem PRVLG 

If 8%348 < e*359 then 
Keu J'RVLG 

Uti_Max = *X26e 

Ken PRVLG 

Scto_Ha* = #427© 
End If 
Ren PRVLG 

[f &£31» > &%358 then 
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Rem PRVLG 

UtiJtex = 6*276 
Ren PRVLG 

Soto_Max 
End Tf 
Uti.Cnt 0 
Soto Cnl = 0 
Bo Until Soto CaL = Sul'jJkx + L 
Uti_C'nt = 0 
Rem PRVLG 

If < 0*356 then 

Gjou = Uti_Cnt 
Retu = Soto_Cnt 
End If 
Ben PRVLG 

If 6*34& > e%36§ then 
Gyou - Soto Cnt 
Retu = L'tijCnt 
End U 

Do Until Uti_Cnt = Uti_«ax I 1 
B0X_i: 
Reo PRVLG 

If I9Jb3^§S3ie_»%28§_<W29e_eiW2eCGyou,Retu: = CNS.NOT_KUfU*<239 Then 

GoTo B0X_2 
End If 

GoTo B0X_E 

B0X_2: 
Rwn PRVLG 

B0X_3: 
Reo PRVLG 

If we*30e_G*3lfc_$%28e_mO€_^2<i_wHCyou.Rctu) <> CNS N0T_KUK_e*239 Than 

GoTo B0X_4 
End If 

GoTo B0X_5 

BOX 4: 
Rem PRVLG 

V93W0$_^3lt_e«28e_fc*29e_^02e , (Gyou,R«tu) = W^0e_^31«L^288J**29e_eXO2e vrk (Gyou. Retu) 
Rem PRVLG 

CTRL_W&%30e_8K28©_e«29«_STS.TRANSTTTON_FLG = CTRL_W«%30« 8H28S ,e*2ye_3TS_TRANSITIOR.FLG * 1 
GoTo BOX.E 

BOJLR: 
Ren PRVLG 

If CTRL ieX30e-9*28e_W29»_STS.TRAKSlTI0N_FLG^P 
- CTRL »9%30«_9*28«_e»29e_STS_TRANSITI0N_FL.G_rP Then 
GoTo BOX.G 
End If 

GoTo BOXJT 
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BOX-6: 
Rva PRVLG 

CTKL.^J^.WJl^^Se.Wa^^OSe.NOT^VALID.FLGtGyou.Retu) = True 
GoTo B0X_E 

B0X_7: 
Rem PRVLG 

CTRL_7C?630«_e%29e-l^G_Pl^ = True 
CoTo SOX^E 

B0X_E: 

Uti.Cnt - Uti.Cnt + 1 
Rem PRVLG 

If B*34t* < fc%356 then 
Cyo'j = Uti_C»t 
Ret u = Scto_Cnt 
End It 
Rem PRVLG 

If > 9*35§ then 

Gyou ~ Roto_Cnt 
Rctu - Uti_Cnt 
End If 
Loop 

Soto Cnt = Sulo_Cnt + i 
Kem WVLG 

If W348 < «3&3o0 then 
Gyou = Uti_Crtt 
Retu * Soto_Cnt 
End If 
Ren PRVLG 

Tf G&34G > e%36« then 
Gyou - Sol9_CiiL 
Retu - Uti .Cot 
End If 
Loop 

Gyou = 0 
Retu = 0 
Uti_Cnt = 0 
Soto_Cnt = 0 
UtiJlax = 0 
Soto Max = 0 
End Suu 

Kea *** PRCEND 
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Option Explicit 
Ren BDEKFUB 
■tea PUB4N3 

Prlvutv m30S_e*3i9_8%2 89.9*29 &_W02& As Intener 
K«a PUB1N3 

Private *e*305S_@5«31l*_e%280e_?&295e_e*2(>oe As e*235e 
Ren PUB5C3 

Private CTRL_«§%30©_»X28©_©9C298_STS_TRANSITION_FLG As Integer 
Ren PUB5Y3 

Private CTRLjrS^09_G%28e_^29&_STS_TRANSITION_Fl€_P As Integer 
Rem PUB6R3 

Private cmjr^0§_e*2Se J&208_ST5LTRANSTTIOK_P1X_PP As Integer 
Ren PUB6P3 

Private CTRL_m30&_e*31& 0*283. «%2M».eW28 NOT VALID KLG As Boolean 
Ren tf DEFEND 
Ken tJDHhPKV 
Ken PKV2T3 

Private fffc<30&_$*3l&_«%28e_*£29e_9%02G_wk As Integer 
Ren PRV7R3 

Private CTRL_lf«C30&_§S29«_[NG_FLC As Boolean 
Ren PUBKU 

Private CNS_.N0T_KUH_Integ«r As Integer 
Ren $PRV2W3 

Ren 5PRV2E3 
Ren SPRV4TO 

RbiD SPRV4E3 
Rem ^DEFEND 

Public Sub MainO 
Ren #VECREP Private Sub L3_&%3ie_eK28&_e%298_e*02SO 

BCOLl: 
Ren PRVLG 

If Wft%3Oe_fiX3l»_«>i28e_8%298_e«C02B CNS_N0T KUH Integer Then 

GoTo BOX 2 
End If 

CvTv B0X_E 

B0X_2: 
Rea PRVLG 

B%169 
B03L3: 
Ren PRVLG 

If «eX30^e9t3lg_«62fl^^629eLe%02e_wk <> CNS_N0T_KUH_1nteger Then 

GoTo B0X_4 
End If 

GoTo B0X_5 

BOX 4 = 
Rem PRVLG 



WO 2005/029322 



41/161 



PCT/JP2004/013806 



[H75] 

Rem PRVLG 

CTRL_*fr>30e 8^a§_e5298_STS_TRANSlTIOK_RjG = CTRLJ7^30«_**28O*29ft_STS_TR ANSI TIC*. FLG * 1 
Goto BGX.E 

B0X_5: 
Rwu PRVLG 

I f CTRL_Se%30€_eX28e_efc29e_STS_TRANSTT 1 0N_FLG_P 
= CTRL_we*3O^_O3i28i_e%29e.STS_TRANSITI0K FLG PP Thau 

GoTo BOX^S 
End If 

C*T« BOX_7 

BOX- 6; 
Rem PRVLG 

CTRL Ve%3W_^%3ie_e9ttJ8e«W29^_t%028Jf0T_VALID_FLG = True 
GoTo 30X_E 

BOX. 7 : 
Ken PRVLG 

CTRL_*e%30e_eX29e_lNC_FLG - True 

Go To B0X_E 

B03LE: 
End Sub 

Ren *** PRCEND 
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Option Explicit 
Sen UDEFPUB 
Ren PUB4N4 

Private we*30$_ft^lft_&X28{Le*29e_e*Q2e As 6*238 
Ren P r JBTN4 

Private *fcX305B_«K3l5»_&*28$* 0*2008 As 

Reo PUB5C4 

Private CTRL W&*30& 8*2S©_W299_in S_TRANSlTION_FlG As Inteaer 
Ken PUB5V4 

Private CTRL^WJ0§_WJ89_«29^STS.T14AHSITION_FLG_P As Integer 
Rem PUB5B4 

Private CTRL_»8X30^W239_«t298_STS_TRANSITI0OLG^PP As Integer 
Rem PUB6F4 

Private Cm^m308_€«3l^eH28^ejk29«_&M)2«_N(yr_VALTI)_FLG As Boolean 
Ren MJEFEND 
Ren PUB4B4 

Private ¥8*5 DOG 6S3L0§ @*2 808. 6X2908 . 0*2006 As <J%23« 
Ren PUB4N3 

Private «<3_e*3ie_&5&8§_«&i9e_9%U23 As Integer 
en PUB4N2 

Private *2_©9S3lS_#£28$_«29G_8K02e As 3*238 
Rea SDEFPRV 
Rem PRV2T4 

Private ¥©%30e_&*3ie_6*28e_§*29e_e%02e_wk As 6*238 
Rem PRV7R4 

Private CTRL_*e*30«_e*29«_ING_FLG As Boolean 
Rem *PUBKU 
Private C*S_NUT_KUU_$trina As String 
Private CK3_N0T_KUD_Integer As Integer 
Private CNSJflOTJCUH_Boolean As Boolean 
Private CNSJ»T_KUH_Long As Long 
Private CNS_NOT_KUB_SingU As Single 
Private CNSJK)T_KUH_DoubLc As Double 
Private CNS_N0T_KUH_ Variant As Variant 
Privet© CNS_.N0T_KUH_Cui rency As Cunwncy. 
Private C.NS>_N0T_KDH_By te As Bytv 
Private CNS_N0TJOJH_Date As Date 
Rem *PRV2I4 

Rem 4PRV2E4 
Rem $PRV4f4 
0X1826 
Ren JPRV4E4 
Ren $ DEFEND 

Public Sub MainO 
Reu HVECREP Private Sub U_8%31&_e*2Be_8%298_efc02e_e%07e0 

BOX.l : 
Ren PRVLC 
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gg&eua-e^agatis^* h^L4 peso -2 



If W3ae_e%3ie_e%280_S«299_e%0?.§ = C*S_NOT_KLK_e*23e And _ 
Ren PRVLG 

W3^*3l9_e&2Se_e*2i>a_e*02e = 9*073 Then 
G0T0 B0X_2 
P.nd [f 

GoTo B0X.E 

B0X_2: 
Rem PUBIN 

If *§*:JU59_Wai5e_W28Ge_9fc295©_e , »2!)0& = CNSJ(OT_XUH_«%235e Then Go To Box_3 
Rwn PRVLG 

B0X_3 : 
Ren PRVLG 

If iT8fc30e_«$3ie_eX2o&_e*2ae_eW>2e_wk <> CNS_Nt>T_KUK_g%23f» Then 

G0T0 B0X_4 
End Tf 

G0T0 B03L5 

B0X_4 : 
Ren PRVLG 

W^Oe_^lS_&*2o§_e%29a_0!fc>2e = (f9*30e„8%31&_e«238_§%29©_©%D2^T»k 
Reo PKVLG 

CTRL_»eX30«_#X2St_&X29e_STS_TRANSITICN_FLG = CTRL jr£<3&fc_e«Be_6%29e.STS_TR ANSI T10N.FLG + 1 
GoTo BOX_E 

B0X_5: 
Rem PRVLG 

If CTRL_SreH30e_e%28a_6%29«_RT5;_TRANSt Tl 0N_FLG_P 
- CTR[.«m3Qe_«%28eL$*29«.STS_TRANSTTI0N_FLG_PP Then 
GoTo B0X_6 
End If 

GoTo »0X_7 

B0X_6: 
Rem FRVLG 

CTRL_»W30e_«&31$_«X28«_«29«_*Ht>2e_NOT^VALID.FLG = True 
GoTo B0X_E 

B0X_7: 
Rem PRVLG 

CTRL_!P8*3'D&_e*29B_ING_FLG - True 
GoTo BOX.E 

BOX E- 
End Sub 
Rem *** PRCEMJ 
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Option Explicit 
Rem HDEFPUB 
Reel PUB4N3 

Private V^30e e*319_W2S©_^29@^02« As Integer 
Ren PUBlfrS 

Private m305B_«*3l5e_ W28S^e%295e_«320Oe As «Sf235» 
Rem PUBBC3 

Private CTRL_*^oe_^28©_e*2n^ST5;_TRANSTTION_FLG As Integer 
Rem PUB5Y3 

Private CTRLjr«30e_^2a3_e*29e_STSjrRANSTTION_FLG_P As Integer 
Sen PUBSB3 

Private Cm_7e%30«_e^2Sft.W2de_STS_TR.WSITI0N_FLG FP As Integer 
Ren PUB6F3 

Private CTRL.TOSO^Waie.WZ^^S^WOZ^.NUT^VALlD.FLG As Boolean 

Ren It DEFEND 
Rea 8DEFPRV 
Rem PKV2T3 

Private W^3O«_^3ie_e*28«_e952D©_8%02§_wk§S07§ As TntegeT 
Rem PRV7R3 

Private CTRL_»§*30e_©*29e_lNG_FLG As Boolean 
Ren PUBKU 

Private CNSJ*OT_KUH_Intcgcr As Integer 
Rem IPRY2*S 
BK1620 
Ren JPRV2E3 
Rem 5PRV4WH 

Re« $PRV4E3 
Ren ^DEFEND 

Public Sub UainQ 
Ren ftVECREP Private Sub L3_e*3ie_e*2&9 9*0280 

BOXJ : 
Ren PRV1.G 

IT Wg*30O*319_e%289_9X29«_3X02e = CNS.NOTJCUIL Integer Then 

GoVo BOX. 2 
End If 

GoTo B0X_E 

B03L2: 
Ren PRVLG 

B0X_3: 
Reu PU0L3F 

If m3W_«*31^9*2«9^29©_W02^ke)iO7t * L Then GoTo B0X.4 
GoTo D0)L5 

B0X_4: 
Rem PUBL3F 

If WW30*_W3l§_«t2S©_QV29e_e?i02e.whe%07e = t Then WBS30§ W3l8..3*2S&_§S29e_$*02« = 6*079 
Re» PRVIG 
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CTRL_*&£3Q(Le*288 «2S9. ST S .TRANS ITIO.^FLG = CTRL_W«30e_^28OX293_ST$_TRANSlTI0N_FLG + I 
G0T0 BOX £ 

B0X_5: 
Rem PRVLG 

If CTRl^»9*308_^8§_W29&_STS_TRA*5ITI0>LFLC_P 
= CTRL_IWi3O^9^28^_«C29^_STS_TRAN53TI0M_FLG^PP Then 

G0T0 EOX_6 
End If 

G0T0 B0X_7 

B0X.6: 
Rem PRVLG 

CTRLJ^oe_#*3ie_<&280Jft298_^O2e_HOT VALID KLG = True 
Goto BOX E 

BOX 7: 
Rco PRVLG 

CTRL_we*30e_e*29e_ING_FLG = True 
GcTo BOX_E 

B0X_E: 
End Sub 

item *** PRCEffD 
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Option Explicit 
Rem «1>EFP1)H 
Rem PUB4N4 

Private W§^306_9X3lft_{K28e_«5%29&_W029 As BX239 
Ren PUBIN4 

Private S«*%305e_eX3l58..«285H 9%29D© S&20O& As IW2i5& 
Rem FUB5C4 

Private CTRL_*e%30^_«r*2S9_eX2y8.STS.TRANSlTlUN_FLG As Integer 
Ren PU&5Y4 

Private CTRL_W&5»oe_§K28^_e«29»_STS_TRAN>ITI0N_R€_P As Integer 
Rem PUB5B4 

Private CTHL_W^309_^23e_e%29«_ST5_mNSITIO>f^FtG_PP As Integer 
Rem PUB6F4 

Private Cm_W3to0d_e5fi31»_e*2B&_e?i2»e_e*02«_f((>T_VALTD_FL& Ac Boolean 
Rem CHEPEND 
Ren PUB4K4 

| Private m3008„e%31<W_e%28O»_8»290»_W2OOe As e*23B 
Ren PUB 1X3 

Private ff3 ^3ie_9*2Sfc_e*29tf Jft02§ As Integer 
Ken PUB4N2 

' Private »2_eWie_W28e._«29t_«02e As S%236 
Rea #DEFPRV 
Rea PRV2T4 

Private we*30i_G*3ie_eX2S§_e%29§_efc02©_vk As 6K23S 
Ren PRV7R4 

Private CTRL_»§%30«_€X29a_IJIG_FI.G As Roolcan 
Re* "PURKU 

Private CNS_W0T^KUH_Striny As String 

Private CNS_K0T_KUH_ Integer As Integer 

Private CNS_N0T_KUH_Boolean As Boolean 

Private CKS_N0T_KUH_Lon* As Long 

Private CNS_tf0T_KUU_S ingle As Single 

Private CN5J30T JCUlLDouble As Double 

Private CNSJWTJCUH^ Variant As Variant 

Private CNS^NOT JCUH_Cirrrcncy As Currency 

Private CNS_NOT_XUH_Byte Ar. Byte 

Private CNS_N0T_KUH_Date As Date 
Rem iPRV2Wl 

Rem JPRV2E4 
Rem $PRV4I4 
8561826 
Rem IPRV4E4 
Rem -DEFEND 

Public Sub NalnO 
Rnn mCRRP Private Sub U_«%3l6_<»%28«_e%29«_»%02«. »3M)7<jO 

BOX.l : 
Ren PRVLG 
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If VQ%30»_«b3ie_«3i2fift_ft5L29^e3£02e - CNS_KOT_Kl'H_»%2Se And _ 
Ken PRVLG 

W3_G3aie_&5ES9J«29e_e*028 - 6X070 Then 
GvTo B0X_2 
Hud if 

GoTo B0X_E 

B0X.2: 
Ren PUBIN 

If We*30Se_eX3l5§_e*28S$_ei;295§_eS&2003 = CNS_N0T_KUH_«fc2359 Then Go To Box_3 
Ren PRVLG 

Rea PRVLG 

If W§*308 &%319 W28§ 6*299. e*028_wk <> C\NS_KUr_ja<rt_&Jte33 Then 

GuTu B03L.4 
End If 

GoTo B0X_5 

B0X_4: 
Rem PRVLG 

m30i_8*3ie_&K286_&X29«_8*02& " »^30&_K&3 je_e3f,28g_e*29g_^02^vk 
Ren PRVLC 

CTRL^W^k30e_eX28e_©K29e_STS_TRANS]TI0N FLG - CTRL We%39© 0*288 «*29B STS .TRANSIT I ON.FLG + 1 
GoTo BOX K 

B0X.5: 
Reo PRVLG 

Iff UTRL_ff«U0e_9*28fr_«*299_STS_TRAiiSIT IfHU I LG_P 
= CTHL_W«C30©_e%28©^^%29«_STS_rRANSITION_FLG_PP Then 

GoTo BOX_fi 
End If 

GoTo B0X_7 

B0X_6: 
Rem PRVLG 

CTKL_W€?5i3ge_9%3L9_ffl62Sd_«5<299_eX02§JJOT_VALID_FLG = True 
GoTo BOX.E 

\ B0X_7: 
Rem PRVLG 

CTRL_ff&SW0Q_8S29e_TNG_RLG - True 
GoTo B0X_E 

BOX E: 
and Sub 

X«n *** PRCEND 
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Option Explicit 
Ren tfDEFPUB 
Ken FUB4N3 

Private *e%30fi_d363ie.&%28«_W29@.W02?(«%26e, **27«> As Integer 
RttQ PUBIN3 

Private «93^P5©^©563l5d_«?i285^W205e_«200e(e«6B$, ^275«) As 6*235© 
Ren PLTB5C3 

Private CTRLW99>3Oe_§*2fie_83S20§_5TS - TRA>r51TI0N_FlC As Integer 
Ren PHB5Y3 

Private CTRl._W^0^_«^28«_8962 0B_STS_TRANSTTTON_FLG_P As Integer 
Rem PUB5B3 

Private CTRL_WX30#_«3628S_©«29»_STS_TRi\NSITIOM_FLG_PP A3 Integer 
Rem PUB6F3 

Private CTRi_*8*308_^3ie_^2«»_^29«_9%02930T.VALID_FU C^26«. W27«) As Bvolean 
Ren ftDEFEW 
Ren tfDEFPRV 
Ren PRV2T3 

Private VSK3\&J2%Z\9je%2S$_&2$G^%S>2Q_rt (6*269, e*27S> As Integer 
Ren PRV7R3 

Private CTRL_ffe*308_e*20g_[NG_FLC As Boolean 
Ren PUBKU 

Private CNS _Nt>T_KlW_Intcgcr As Integer 

Private Gyou as Integer 

Private Retu as Integer 

Private Uti Cnt as Integer 

Private Soto_Cnt as Integer 

Private Uti_Uax as Integer 

Private Sctojiax as Integer 
Rem SPRV2B3 
61(1626 
Rem $PRV2E3 
Rem JPRV493 

Rem IPRV4E3 
Kern M DEFEND 

Public Sub HainO 
Rem JiVECREP Private Sub L3_6&H&_e*2S&_e*29e_6%02eO 

Gyou = 0 

Retu = 0 
Rem PRVLG 

Tf §X34§ < g¥3Ff* then 

Reo PRVLC 

Uti.Max - «X26§ 

Rem PRVLG 

[ SW«_MaA = 6X27§ 

I End If 

Reta PRVLG 

If 6X34© > t%356 then 
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Rem PRVLG 

Uli_Ma.\ = ©%2i6 
ciem PRVLG 

Sotojflax = 0*266 
End If 
Uti_Cnt - 0 
Soto.Cnt = 0 
Do Until Soto^Cnt = Soto_Unx * 1 
Cti.Cnt = 0 
Rem PRVLG 

If < **35© then 

Gyou - Uri_Cnt 
Rctu Soto Cnt 
End if 
Rem PRVLG 

K «C34$ > e*3Ge then 
Gyou - Soto_Cnt 
Rctu = Uti_Cnt 
End If 

Do Until Uti.Cnt = Utijlax + 1 
BOX. I : 
Rem PRVLG 

If »«%30t!_«%3 16. S*2«§ &»2»e_WW2QCGyou, R«t j) = CNS.NOT.KUi.lnTegex Then 

GoTo B0X.2 
End If 

GoTo BOX E 

BOX 2: 
Rom PRVLG 

BOX_3: 
Rem PRVLG 

If f8%3Qe_e«3l«_6^2S8.§%29e .Wi02e_wk(G7ou,Ketu) O CNS_NOT_KUH_Integer Then 

GoTo BOX_4 
Rnd If 

GoTo BOX_5 

BOX 4: 
Kern PRVLG 

we!l&30§.e»3l9_«9628e-e5t20^eS02eCGyou,Retii) = WK30BJR31* W289_eS2ye_e*02G_wk (Gyou, Ret u) 
Rem PRVLG 

CTRL_Te5i3Ce_«62Se_«fi298^STS_TRAhSITL0N FLG = CTRL_*etf30S_«28e_e*299_$TS_TRANSni0N_FLG + 1 
CoTo BOX.E 

B0X_5: 
Ren PRVLG 

If CTRL_W^u30e_i*2oe_e«2y^STS_TRAKSlTION_FLG_P 
- CTKL.m3U«_eX28«_©%29»^STS_TRAK5l7I0N_FLG_PP Then 
GuTo B0X_6 
End If 

GoTo B0X.7 
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Ren PRVLG 

C7RL_P^0e^2ie_GS28«_«29#_§%02§JJ0T_VALID_FUG(nynu.Kctu) - True 
GoTft BOX.F 

BOX_7: 
Ren PRVI.G 

CTRLJ?e*30B_e*2&B_lHC KLG = True 
GoTo BOXJ 

BOX_E: 

Uti.Cnt - Uti Cm * 1 

Ren PRVLG 

if 8X348 < then 

Gydu = Uti_Cnt 

Re-tu = Scto_Cnt 
End If 

Rea PRVLG 

If 9%34§ > then 

Gyou - Soto_Cnt 

Retu = Uti_Cnt 
End If 

Loop 

Soto__Cnt - Soto Cnt + I 
Rod PRVLG 

if 8%'J4@ < then 
Gycu - Uti_Cnt 
Retu - Scto_Cnt 
Er.d If 
Rem PRVLC 

If «*34& > *fc35e then 
Gyou _ Soto_Cnt 
Retu - Uti_Cnt 
End If 
Loop 
Gyou = D 
Retu = 0 
CtijCnt = o 
Soto_Cnt. - 0 
I'tijtax = 0 
Sotf>_Uax - 0 
End Sub 

Rem *** PRCEND 
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Option Exp)icit 
Ron tfDEFPUB 
Ren PLB1N4 

Private m308_^i3 ie_»628^_©5629e_«e02© (W26&, e*27«) As G*2'J8 
Re» PU31N4 

Private WW3O5^93&3l5e_«%235«_W295«.W2O0$(955265«, W275^) As &&23S& 
Rem FUB5C4 

Private CTRL_ffWDO0^28«_&%2Se_STS^TRAfJSlTlCN_FLG As Integer 
Ren PUBSY4 

Private CTRL_»t%3O^f%28^§3t20e_STS_TRAKSITION_FLC_P As Integer 
Ren PUB5B4 

Private CTRLWeii3Oe_^2fie_e^2&8_STS_TRANSlTT0K_FlG_PP As Integer 
Ren PUB6F4 

Private CTRL_*e*30e\.a%3l# G%233 G*298 .NOT. VAtlU_FlG{8%2t>9, W27«) As Boolean 

Rem SDEFEND 
Kern PUB4B4 

Private W 69630 O8_^'JlO«_e9b2Boe_BS6290$_e%200d(©<2&§, 6%279) As ©£230 
Rea PUD4N0 

Private W3_G%3ie_&*28e_e%29§_&*02e(&%26§, g%27&) As Integer 
Ren PUB4M2 

' Private Sr2_@>i3ie_e%2fie_8S2&8_e%02e(9%28e. BS27&3 As fl*23» 
Ren ttDEFPRY 
Ron PRV2T4 

Private »85530@ 6*318 6*28® e*29S-8%02<*_*fc(*%26& <J*27«) As &H23S 
Rea PRV7K4 

Private nRL_»W3D©_e%29«_ING_FLG As Boolean 
Ken *PL'BKU 
Private CNS_NOTJttJ*LString As String 
Private CNS_N0T_KUH_Integer As Integer 
Private CNS_NOT_KUH_Boolcnn As Boolean 
Private CNS_N0T_KUH_Long As Long 
Private CNS_N0T_KU1LS ingle As Single 
Private CNS_WOT_KUH_Doubl e As Double 
Private CKS NOV KUH_Variaul As Variant 
Private CK3_N0T_KUILCurrency As Currency 
Private CNSJJOT_KUH_Byte As Byte 
Private CKS_N0T_KUH_Date As Date 
Private Gyou es In^egeT 
Private Retu a3 Integer 
Private Uti_Cnt as Integer 
Private Soto.Cnt as Integer 
Private Cta Max as Integer 
Private Sotojiax as Integer 
Rem $PRV2*4 
9X1720 
Rem IPRV2E4 
Rea $PRV4W4 
§£1820 
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Reci *PRV4£4 
idea 3 DEFEND 

Public Sub MainO 
I Rem SVECREP Private Sub L4_«3ie_W28e_#*29e_G*02ft_H%07&0 
Gyou = 0 
Rotii - 0 
lEca PRVLG 

If &%34B < 9X3 then 
|Ren PRVLG 

Uti Max = 8*258 

|K*a PRVLG 

SotoJiax = 8*278 
Bud If 
| Ren PRVLG 

If 8*348 > ^35S then 
I Rem PRVLG 

lltj Jinx ~ SS276 

| Sen PRVLG 

Soto Ma* = 8*268 
End If 
UtL.Cnt = 0 
Soto.Cnt = 0 
Do Until Soto_Cnt = SotoJCax * 1 
Uti_Cnt = 0 
Rem PRVLG 

If @%34<? < 6*356 then 
Cyon - Uti_Gnt 
Retu = Solo.Ciit 
End if 
| Ren PRVLG 

If £<349 > 9*380 then 
Gyou = Soto_Cnt 
Retu = Utl^Cnt 
End If 

Do Until Uti_Cnt = Utijrfax + 1 
B0X_U 
I Rem PRVLG 

if W§%3G8_e*3l8_8Xm_&^e_8%028(Gyo U ,R«tu) = CNS_N0T_KUH_8*238 And _ 
I Kern PRVLG 

W3_e%3l8_8X2SfLC«29e_e*028(Cyou,Retu) = 8*078 Then 
GoTo B0X_2 
End If 

GoTo BOX_l? 

R0X_2: 
|Rcn PUBIN 

If *^305e_«9t315e_§%28S«^yG»_«fi200©(Gyoa,Retu) = CNS_N0TJCIH_8*2358 Then Go To Box_3 

I Ken PRVLG 

8*178 
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BOX_3 : 
iRetn PRVLG 

]f W^30e_g9Wl^_e%2Sa_e^29e_Wt02e vk(Gy«u, K«Lu) <> CN$_N0T_Kin_ffjS22& Then 

GoTo BOX 4 
End If 

BOX_5 
B0X_4: 
I Ken KKVLO 

we%30e_W3l^_e%28e_eW9e_»*Q2©(C7on,Retu> - ffe%30§_6«3ie_^28»_eX29« S%026 *k (Gyou. Retu) 
I "tern PRVLC 

CTRL_«§WD«_#%2Re^e^Z9#_STS_TRANStTlON_FLG - CTRL ff«6306_e%2WJ_«%!i98_STS^TRANSITlON_aO + 1 
GoTo B0X_E 

B0X_S : 
IBcb PRVLC 

Tf CTRL_ffe%3D»J**28e_e*296 5TS_TRANSIT10N_FLG_P 
= CTRL_tf«l30©_W2»e.W2^STS_TRAfiSrTION_FLG_PP Then 

GoTo B0X_6 
End If 

GoTo BOXJT 

BOX.6: 
|Re D PRVLG 

CTRl.»^30§_eX31&_W28e_e%29€^^02fl_K0T_VALID_FLGtGyou. R«lu> = True 
GoTo BOJLE 

R0X_7: 
iRcn PRVLG 

CTRL_*e*3l>« .§*299_im;_FLG = True 
GoTo B03L.E 

B0X_E- 

Uti.Cnt = Uti^Cnt * 1 



Re* PRVLG 



If 3*346 < $%358 then 
Gyou - Uti_Cnt 
Retu = Soto_Cnt 

End If 



Ren PRVLG 



If W34® > @K353 then 
Gyou - Soto_Cnt 
Retu - Uti^Cnt 
End If 

Loop 

Soto_Cnt = Soto_Cnt * I 
Rera PRVLG 

If B%34& < then 
Gyou - Uti.Cnt 
R«tu = Soto_Cnt 
End If 
Rem PRVLG 

If 33349 > e*3F$ then 
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Gyon " Sot.rt_Cnt 
Rem - Uti.Cnt 
End If 
Loop 
Gyou - 0 
Retu - 0 
j Uti Cnl = 0 
Soto Cnl = 0 
UtiJtax = 0 
Soto_Uax = 0 
End Sub 

Rom *** PRCEXI> 
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Option Explir.it 
Rem tfneFPKft 
R«n FUB4K3 

Private VeX30fr_3*3ie_«%2Se_e*23e €%02«(^26^ ©fc273) As; Integer 
Ren PJBTN3 

Private 8%315« ^859_W2y5e_^2UO«<#3&eGr\ SS275G) As €%235« 

Rem PUB5C3 

Pi i vat* CTKL_we*30»_^23e_«%29»_STS_TRANSnlON_FLG As Integer 
Rem PUBGY3 

Private CTRL_We<30M%28t_W29«_ST5_TRANSlTI0N„FLG_P As Integer 
Ren PUIJ5D3 

Private CTRLjrW30eVW2B8_e*29$_STSJTRANSITlON_FlG_PP As Integer 
Rem PUB6P3 

Private CTRL_ff^30@_W3ie^e%2fi@_e%29«_9%02e_NOT_VALID_FLG(^26§. 6X27©) As Bateau 
Ren ^DEPEND 
Ren SDEPPRV 
Rem PRV2T3 

PrivaCe m30«_9X3LG 6*28© 29 e_WU)2&_wm07 0(^26©, *3S27fc) A3 Integer 
Ren PRV7R3 

Private CTRL_W©to0e_?*29©_lKG_FLG As Boolean 
Ken PUBKD 

Private CNS_NOT_KUH_Integer As Integer 
Private Gyou as Integer 
Private Rettt as Integer 
Private Uti.Cnt as Integer 
Private Soto_Cnt ns Integer 
Private Uti_Wax as Integer 
Private Soto.Max as integer 
Rem JPRV2W3 

Re* JPRV2E3 
Ren $PKV4V-J 

Ren 3PRV«E3 
Rea 8DEPEND 

Public Ruh MalnO 
Ren ftVECREP Private Sub L3..©%31«_«9s2Be_§X29©_W029C) 

Gyou - 0 

Kelu = 0 
Rem PRVLG 

If G*34« <- «*35& then 
Rem PRVLG 

Uti_Max - &%266 

Ren PRVLG 

Snto_Max = ft£27G 
End If 
Rem PRVLG 

If 0fc34e > €%358 than 
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en PRVLG 

Uti.Mo.x = K427B 

Rem PRVLG 

$yio Max = ewee 

End If 

UU_Cnt - 0 
Sot<o_Cnt - 0 
Do Until Soto_Cnt = SotcJIu + 1 
Uti.Cnt = 0 
ilea PRVLG 

If 6%340 < then 
Gyou = Uti_Cnt 
Retu = Soto_Cnt 
End If 
Rem PRVLG 

If 0*343 > WSb$ ihan 
Gyou - Soto..Cnl 
Retu = Uti_Cot 
End If 

Do Until I'ti.Cnt = Uti_Max - L 
B0X_i: 
Rem PRVLG 

If (Te«aoe_e*3l©_eiil2Se_«i290_eX02§(Gyou, Rctu) - CNS_NOT_KUH_Integer Then 

GoTo RDX_2 
End If 

GoTo B0X_E 

Rem PRVLG 
6*169 
BWL3: 
Rea PUBL3F 

If W«?t3O»_«%3ie_^28e_e*29&_e96O2Q_vk©H07e(Cye>ii,Rotu) s- I Then GoTo B0X.4 
GoTo B0X_5 

B0X_4: 
Rom PLBL3F 

If We%30« Wb286 9%298. <W02&..»KW7«(Gyou. R»lu) = 1 

Rem PRVLG 

CTRL_if9%309_«2ae_e^29»_STS_TRAN5ITION_PLG = CTRL_^30€L^8e_©K2<>§_$TS_TItANS]TinN_FLG + I 
GoTo BOX.E 

B0X_5: 
Rem PRVLG 

I f CTRL_«e<30e_§ft28e_9X29^STS-TRAMSl TT0K_PLG_P 

CTRL_WW30e.^28e_eX29»_STS_TRAKSlTI0H_FLG_PP Th»u 
GoTo B0K..6 
End If 

CoTo B0JL7 
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Rem PRVLG 

CTRL_we\308 ^tie.^se.e^O^ejWT.VALID.FLGCCrqu.Retu) = True 

GoTo BOX E 

BOX. 7: 
Ren PRVLC 

CTRL_weS30e_e*29e_ING_FLG - True 
GoTo BOX.E 

B0X_E : 

Uti_Cnt » Uti_Cm - 1 

Rea TRVLG 

If 8*348 < 9*35© then 

Gyou = Uti_Cnt 

Reiu = Soto.Cnt 
End If 

Ren PRVLC 

If €%348 > 8%358 tliwn 

Gyou - 5oto_Cut 

R*tu = Uti_Cnt 
End If 

Loop 

Soto_Cnt = Soto^Cnt + 1 
Ren PRVLG 

If 6*348 < 8*36$ then 
Gyou = Uii_Cm 
Retu - Soto_Cnt 
End If 
Ren PRVLG 

if > 8*35© then 

Gyou - Soto_Cnx 
Reiu = Uti.Cnt 
End If 
Loop 
Gyou = 0 
Retu = 0 
Uti_Cnt ~ 0 
$nto_Cn-c - 0 
[RiJKaj = 0 
Solojfcu = 0 
End Sub 

Ken *** PRCEND 
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Option Explicit 
Sen ttDEFPUB 
Kea PUE4JH 

Private m306 e%31«.^28«^29f_»9e02$(^26^ 3*273) As «%23« 
Ren PIB1N4 

Private WWJO5^^315e_rX235e_W29S©_W200e(^265«,«276©) As ©fc235© 
Rea ri ; 36C4 

Private CTRLJ7W3W_^8&_W2993TS_TRANSITI0N.JLG As Integer 
Ren PUBSY4 

Private CTRLJ?^30e_^8g_^9e_STS_TRANSlTlOK_Fl.G_P As Integer 
!ten PUB5B4 

Private CTRU.»eiiaO«_&5i28e_eX2»e_STS_TRANSlT'tON^PLG_PP A3 Integer 
Rem PURfcF4 

Private CTRL_W©%30e_&*3ie_«X2S& 0*299 fc*D2© N0T_VAtJI>_FLG(«H268. 6%27«) As Boolean 
Rem 3DEFFKD 
Reei PUB4B4 

?i ivate W©%300e_«*310«_e9i28U«_9S629W_e?l2au«(eS26« 1 &%27$) As eX23$ 
Rem PU04N3 

Private W3_«im«_m8G_^29$_&W2© {9X266, 0*278) As Integer 
Ren PUB4N2 

' Private S2_§1fc3ie_g»28§_8X2f)«_e«02e{e%2Se r e<27©) As «*23B 
Ren WJEFPRV 
Ren PRV2T4 

Private mao&_e%31»_^28e_8X29e_e%02^_wk(ft\26e.e^7e> As &S23& 
Rem PRV7R4 

Private CTRLjratf30G_e%29e_ING_FL& As Boolean 

Red *PCBKU 
Private CNS_NOT__KUILSt ring As String 
Private CNS_NOT_KUIL Integer As [nteger 
Private CNS_NOT_KUH_Boolean As Boolean 
Private CNS_r(OT_KUH_Long As Long 
Private CNS JfOT_KUH_S ingle As Single 
Private CNS_NOT_KlTH_DouM c As Double 
Private CKSjtfOT_KuU_Variant As Variant 
Private CNS_NOT_KUH. Currency As Currency 
Private CNSJWT_KUH Byte As Byte 
Private CNSJWTJCUlLDate As Date 
Private Gyou as Integer 
Private Setu as Integer 
Private Uti_Cnt as Integer 
Private Soto_Cnt as Integer 
Private Utijdax as Integer 
Private Soto_Max as Integer 
Rem SPRV2C-1 
8*1728 
Run SPRV2E4 
Ren JPRV4W4 
6»182« 
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Ren JPRV4E4 
|rco 8DEFEND 

Public Sub HainO 
|Keo #VECREP Private Sub U..Wl§.&%2Se_^ , jy9_W02&_e^07©() 
Gyoti - 0 
Ketu = 0 
iKen PRVLG 

If «34& < &%35& then 
I Re* PRVLG 

UtiJUax = «%26C 

iRea PRVLG 

Soto.Max = &*27« 
End If 
I Rem PRVLG 

If > P.*368 then 

|R«a PRVLG 

Utijtax - 9X279 

I Rett PRVLG 

Soto_lSax = ©36269 
End If 
Uti.Cnt = 0 
Soto_Cnt = 0 
Do Until Soto_Cnt ' SntoJAax - I 
Uti_Cnt - 0 
fRcn PRVLG 

Tf tt&aift < e*35fl then 
Gyou = Uti_Cnt 
Ketu = Soto_Cnt 
End If 
IKen PRVLG 

If e%34& > @£3Se then 
Gyou = Soto_Cnt 
Retu = l!ti_Cnt 
End Tf 

Do Until Uti_Cnt ^ Uti„Mu + 1 
BOJLi: 
|R** PRVLG 

If Ve%y<»6„9XJl&_e%28»_95629e_«X02e(Gyou,Retu) = CNS_M>TJCUH_W23© And _ 
|Rem PRVLG 

93_W3ie_«C2S9_€*29i_e%02e<G you, Retu) = 8X070 Then 
GoTo BOX_2 
End If 

GoTo RftX.E 

R0X„2 : 
[Rem PUBIN 

If «*310«_e»285e_85te95e_*;<200e (Gyou, Retu) = CNS_N0T_KUH_$t2 3SS Ihen Go To Box_3 

I Rem PRVLG 

WH9 
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gtemie-eTzmzfrz^? mwl4 OEm -a 

B0>L3: 
Rem PRVLG 

If W^%308_§1b3ie_&3t28e_eX29{?_^02» wktCyou, Retu) <> CNS_JJ0T_KUH_8X23& Then 
CoTr> R0X_^ 
| End If 

GoTo B0X_5 

BOX l: 
Rcc PRVLG 

Ren PKVLG 

CTRL_^e>30^_^S288_^29g_5TS_TRANSlTTON_FLG - CTRL_ff8X308 ^89_W29^_STS_TR.^SITI0N_FLG + 1 
GoTo B0X_E 

B0X_5 : 
Rod PRVLG 

If CTRL_ffe5t30ft_e%28e.^2de_STS_TR.WSITIOW FLG_P 
= CTRL_ffa%3Q& e%28«..e%29e_STS_TRW«fiiIT]0ILFLC_rr Then 

CoTo BOX_& 
End If 

GoTo BOX 7 

B0X..5- 
Reni PRVLG 

' LTm._W30e_eit3l«_W28e_eS29e_e3iO2§_S0T_VALID_FLG(Gyou. Rotu) = Tru« 

GoTo B03UE 

Rem PRVLG 

CTRL_W0*3O*L&*296_]SG_FLG = Tiu« 
GoTo B0X_E 

H0X_E: 

Uti Cnl = Uti_Cnt h 1 

Rea PKVLG 

If < 6*35$ then 

Gyou - Uti.Cnt 

Retu = Soto_Cnt 
End If 

Rea PRVLG 

If 0*346 > 8%358 lh«ti 

Gyou - Sulo_Cnt 

Retu = Uti_Cnt 
End If 

Loop 

Soto_Cnt = Soto^Cnt + 1 
Ren PRVLG 

If S%34# < e*3S0 then 
Gyou = Uii_Cnt 
Retu = Sot.c_Cnt 
End If 
Rem PRVLG 

If «%31i > e%35g than 
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Gyou = Soto.Cut 
Retu = Uti^Cni 
End If 
Loop 
Gyon = 0 
Retu = 0 
Uti_Cnt - 0 
Solo Cnl = 0 
UtiJdax * 0 
Soto_Max = 0 
End Sub 

Ken *** FRCEND 
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Option Explicit 
(tan ijDEFPl-B 
I Rem PUB4*3 

Private ff§*30e_&»3ie_9?C23O%29*_eSD2e As Integer 
(Res PUBLN3 

Private W^305e^3l6e_e*285e_eX295§_e*2OO§ As SS235G 
iRen PUBSC3 

Private CTRI._Tg3tt08_e*28&_^29fLSTSJTRANSIT10N_J : LG Aa Integer 
|Ren PUBS Y 3 

Private CTRUW^SO^^Sjl.^^.STS.TR.WSITIOOLC.P As Integer 
[Ren PUB5B3 

Private CTRL.WJ«30B.<«28B_e%29e_STS_TRANSITlON_KLG_PP As Integer 
iKen PUB6K3 

Private CTRL_W308_«H31»_«%2W_e*29e_9»O2e_NOT_VALID_JLG As Boolean 
I Kern #DEPGHD 
Reel #DEFPRV 
\Hea PRV2T3 

Private Y«*303_^31«_to280_eX29$_e*O2e_irk As Integer 
|Rem PRV7R3 

Private aRI.J?e*30«J;*29«_TNGJ ? LC As Boolean 
iRcm Pl'BKU 

Private CNS_N0T_KUH_ Integer As Integer 
|Ren JPRY2W3 
llfM62& 
Sua $PkV2E3 
ReD JPKV4W3 
3X1 

Rera $PRV4E3 
|Ren fl DEFEND 

Public Sub MainO 
|Reo 8VRCREP Private Sub L3_8*3L3_e%28ft_e%29e_«%02GO 

B0X_l: 
IRco PRVXG 

If *9fc30e W3W.WZ8§_W29e_W0^e = CNS_NOTJCUR_Iiit«ger Tliwn 

CoTu B0X_2 
End If 

GoTo B0X.E 

BCX_2: 
I Rem PRVLG 

R0y._3: 
|Rea PRVLG 

Tf W0K3O& W3lB_«*289_e*29e_e*02e_»k <> CNS_NOT_KlJH_Itit*iier Th»n 

GoTo B0X_4 
End If 

GoTo B0X_S 

B0X_4: 
iRen PRVLG 
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wes3o»_«H3i@_e?isr8§_9^9e_#%o29 = »e*3o«_e*3ie_^&2fie_W29«.e%o2e_wk 

Rem PRVLG 

CTRL_maa@_«%28e_^29«_5TS_TRAKSITI0N_FLG = CTRL_iT9X30^_«X23e_9S29«_ST5_TRANSITION_FLG ■ I 
G»jTo BOXJE 

B0X_S : 
Ren PRVLG 

If Cm_T^O@_e962S8_e%29e_SrS_TRANSTTTf)N_FI.G_P 
- CTRL^6i30e_e9i;2f*^e?423e_ST!?_TRAMSITIOfJJ : LG^PP Then 
G0T0 BOX 6 
End If 

GoTc BOX 7 

BOX. 6: 
Ken PKVLG 

CTRL_^e*30e_eWie.6*28^e5629d_W029j<Or_VAllD,FLG = True 
G0T0 B03LE 

B0X.7: 
Rea PRVLG 

CTRL_W6?t30#_^29^IMC_FLG = True 
Goto BO)LE 

B05LE: 
End Sub 

Rem *** PRCEND 



63/1 61 

PCT/JP2004/013806 



64/161 

WO 2005/029322 PCT/JP2004/013806 



cm 98] 

fejZfiLWnx-fc&ZftZ^? hi^L4 OEM) -1 

Option Explicit 
Ren 8DEFPUB 
Rfo PUB4N4 

Private m30GJttSl^«%28e_«&29t»_e%02§ As ©%23« 
Rcra PUB1.il 

Private tffc%3Q5e..{i*315» &*235e_fci295e_©X2Uv , G As 9K23G& 
Rwle PIB3C4 

Privaii, CTXL_WJ0©_W2W_^2Ve_STS_TRAtJSITION^FUG As Integer 
Rea PIBDY4 

Private CTRL_WWJ»«_e%28e_9X29e_STS_TRANSlTI0K_FLG_P As Integer 
Ren PUBDB4 

Private CTRLJFmo9_0&8*_*X2Se_STS_TRAK$ITION_FLC_PP As Integftr 
Reo TUB6F4 

Private CTRL_we*30e_&K3 I 8.8X2 S§_6K20*_eS02R_KOT_VAL]D_FLG As Boolean 
Ren ^DEFEND 
Rem PUR4R4 

Private ffeX300&_^3l()8_&*280&_BX290t}_e*200e As 
Rem PUB4K3 

Private Sr3_«5631B_«%28«..«?i29« 6*029 As Integer 
Ren PUB4N2 

* Private ff2_fll3ie_G&:se_W29O*02& As 6X23© 
Ren EDEFPRV 
Ren PRV2T4 

Private SrW30§^3ie_^28e_e&29«_9XO2§_wk As «236 
Ren PRV7R4 

Private CTRL_ff656a08_«%2f»e.fNG.FLG As Boolean 
Ren *PUBKU 

Private CNS_N0T_KUrt String As Sli iwg 

Private CNS_N0T_.KUH Inteeer As Integer 

Private CNS..NuT_KUlLUoolean As Boolean 

Private CNS_NUT_KUlLLohg As Long 

Private CNS_NOT_K0H_S ingle As Single 

Private CNi<_NUT_KUH_Double As Double 

Private CNS_KOT_KUILVariant As Variant 

Private CNSJtfOT_KUH_Currency As Currency 

Private CNS_N0T_KUH_By te As Byte 

Private CKSJJOT.hUH. Dote As Dale 
Reo JPRV2*4 
e%172» 
Reo $PKV2£4 
Reo iPRV414 
9% L82Q 
Rem $rKV4E4 
Res t DEFEND 

Public Sub NainO 
Ren tVFXREP Private Sub L4_8%3ie GX289 e*29«_&fc02e_eX07l-O 

BOX J : 
Ren PRVLG 
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If fre563tJ?_9%3ie_§*28e_eib298_£*02# = CNS_NOT_KUH_^i23e And 
Rem PRVLG 

ff3_e*3ie_8X28§_efc299_e*02§ = $W>?« Then 
GoTo B0X_2 
Hnd IF 

GoTo B0X_E 

B0X_2: 
Ren PL'BIN 

If W§%3O5e_W3l56_e5t2»5e_©X2y5fl_&)62O0e = CNS_KOT_Kl)H_eX235§ Then Go Tn Rox_3 
Rem PRVLG 

6517* 
B0X.3: 
Ken PKVLG 

If WW30^3ie_^28©_eS29«_«tt)2«_wk <> CNS_NOT_KLH_t^239 Then 

GoTo B0X_4 
End If 

GoTo B0X_S 

B0X_4 : 
R«n PRVLG 

w&*3<m_e*3i§ e%2Si*_e<290%oae = ir«%30©_«%3ie_GS26«_s*298_e*o2e_wk 

Rem PRVLG 

»8%30Oe.&*31(>9_oy^80e_e*29O^eS200« = »m0&_«%3ie_G*28«_SK29<Lft»02fc 
Rem PXVLG 

CTRL_W^30e_^28€f_eOi29e_STS„TRANSITION_FLG = CTRI_¥flS30«_efc28§_ 6X299 .STS_TRANS1T1CU_KLG ♦ I 
GoTo B0X_E 

B0X_5: 
Ren PRVLG 

If CTRL_W©%30€_»*2S«_«%29B_STS..TK^S1TIUN_FLG_P 
= Cmjffr&309_BX2S*U«29a..STS TRANSIT I0N_FLG_PP Then 
GoTo B0X_6 
End If 

GoTo B0X_7 

BOX. 6: 
Ren PRVLG 

CTRL_f^30e^3L§_§%28e^e*29ft_^02M oT - VALID FLG = 12 Jw 
GoTo BOX_E 

BDX.7: 
Rea PRVLG 

CTRLJte9«0e_H%29e 1MJ FLG = Tnna 
GaTo B0X_E 

BOX E = 
End Sub 

Kera ♦** FRCEND 
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[Option Explicit 
Rem 8DEFP1JR 
|Rem PUB4N3 

Private lf&%308 ^316 e*2S& ..m9Q_&LQ2% As lnte R er 
iRcn PUBIN3 

Private m3O5e_«363l5e_95l285e_eS290e_«20O& As ©962359 
|R«a PUB5C3 

Private CT8L_we<30«_&3t28e_83fi29§_STS_TRANSlTION_FLG As Integer 
IRea PUB5Y3 

Private CTRL_W&?i30e.«i26^_e9t29e_STS_TRANSlTlON_PlG_P As Integer 
| Ren PUB5B3 

Private CTRL_W«tao§_^28&_e*29d_STS_TRANSTTTON_F1.C_PP As Integer 
lltan PUB6F3 

Private CTRL_T8%30«_e%3]»_«t28 B _«%29e 6*02« NOT VALID KLG As Boolean 
IRcn fiDRPEND 
Ren ttDEFPRV 
I Ren PRV2T3 

Private vm209J$%3\9JW2W„W&$_Q%02Q_yrkQ$Q7t As Integer 
iRca PRV7K3 

Private CTRL_W«tf30e_e%29e_INGjn.G As Boolean 
iRera PU5KU 

Private CNS_N0T_KtJR_ Integer As Integer 
I Rem SPRV2W3 
e*1626 
Rem *PRV2E3 
Rom JPRV4W3 

|r*h ^defend 

Public Sub HainO 
|Reo aVGCREP Private Sub L3_e^3l^eX288_«fc208_g%0290 

B0X_1 : 
I Rem PRVLG 

If W65^oe_e%31^t«2a§_eX298_e%02e - CNS.NOT. KUH Integer Then 

GoTo B05L2 
End If 

GoTo B0X_E 

I Ren PRVLG 

wise 

BOX_3: 
Rea PUBL3F 

If ffeS30e_e5i31«_«%28e_e%29e_^02&_Y*ke%07e = 1 Then GoTo UUX_4 
GoTo B0X.5 

BOX 1- 
Run PUBL3F 

If »eK30«_W3ie_ei528e_e»29^e!)602e_wk«%078 = 1 Then 18%30§_e%TL#_e*28^§5&29e_e^02e = »&07P 
Rem PRVLG 
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^W8T^ja^^^n.^L3 tJEm -2 m 

CTRL.*9*30G 37£8e_^299_STS_TRANSmON_n.G = CT5L_Peit3oe_eS28e_©%29e_STS^TRANSinON_FLG + 1 
GuTo B0X_E 

BOX S: 
Ren FKVLG 

I f CTRL_TO30$_G*2 Be_W29€_S7S_T RANSI T I OH-FULP 
= CTRL_ffe*30e_§%2S8_e%29«_xSTS_TRANSTTlON_PIX_PP Then 
GoTo BOX. 6 
| End If 

GoTo R0X_7 

30X_6: 
Rem PRVI.G 

CTRI_lTg%30«_B5i31^«%2B8_e%298_(!%02«_NOT_VALlD KLG = True 
GuTo B0X_E 

B0X_7^ 
Run PRVLG 

CTRL_ff«30e_«*29&_ING_FLG = True 
| GoTo hOUJ. 

B0X_E: 1 
End Sub 

Rem PRCEND 
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j £»l8-C^H^iS^f/^L4 (JEM) -1 

Option Explicit 
Rem 2DEFPUB 
Rem PUB4K4 

Private *e330e_e^3ie_e*28$_0*29«_ett>2e As e%23fi 
Rem PUB[N4 

Private sr8X305^e)iaifi«_§3«fifi^«?295e_^2OOe As 6*2356 
Ren PUBSC1 

Private CTRL_W6*S OS.. 6*238 &H29«_STS_TRANS1TI0N_HLG As larger 
Rco PUB5H 

Private CTRL_*'e%3Q8 W28«. W2*e_$T$_TRANSIT10N_FLG_P As Integer 
Ren PLB5B4 

Private CTRL Ve*3uQ_tt2W_«293_STSjrRANSIT10N_FLG_PP As Integer 
Rea PUB6F4 

Private CTRLJimo0_W31§_^8*_^29§_^O2&JJOT_VAL[D_FLG As Boolean 
Rein JlDEFEND 
Ren FUB4E4 

Private W93&OOe_^3lO&_e%2S(>G_S*2903_e*200e As 8*239 
Rem PUB4N3 

Private 1K3_G*31&_e*28&_eK29e_e*02e As Integer 
Rem PUB4K2 

' Private W2 9*3 l3_§K28e_G%29e_99o029 As #fc23g 
Rem SDEFPRV 
Rem r*RV2T4 

Private fr«%3U$_&X3ie_e!C2Se_e*29&_e%Q2e_wk As 8*239 
Rex PRV7R4 

Private CTRL_lie«30©_«%29e_IKC^FLG As Boolean 
Ren *PUBKU 
Private CNS_NOT_KUH_String As String 
Private CNS JWTJtUtLIntcger As Integer 
Private CNS NOT KUH Boolean As Boolean 
Private CNS NOT KUH Long As Long 
Private CNS NOT_KUH_SiiHjtl« As Single 
Private CNS KOT_KUlLDoubl e As Double 
Private CN$_N0T_KUH_ Variant As Variant 
Private CXS_N0T _ KUFLC u rre n c y As Currency 
Trivate CN5JTOT_KUH_3yte As Byte 
Private CNS_WGT_KUH_Datc As Date 
Ren JPRY2W4 

Reo JPRY2E4 
Reo SPRV4K4 

Keo iPRV4E4 
Rem SDEFEND 
Public Sub MainO 

Ren SYECREP Private Snb L4„«%^l8_8%2S©_e%298_Wb02«_B«)7^O 

B0X_i: 
Ren PRV1.G 
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If ff«t30S_e%31€>.^28fi_&%29e_9»O2§ =- CKS_NOT_KUH €X2Se And _ 
Rem PFVLC 

ff3^9^LG_6*2a§_eX29iUra028 = f?%07e Ther. 
CoTo B0)L2 
End TF 

GoTo BOX £ 

BOX. 2' 
Rem PUBIN 

I Jf Wtf&05e_«3l5&_e%285e_63i296e.-eS200a = CNSjJOT_KUH_e5fi235& Then Go To Box_3 

Ren PRVLG 

G%179 
B0X.3: 
Rem PRVLG 

if maoe_efc3i©_es28e_e%298_ ew>2e <> cns_not_kuh_«*23& Then 

CoTo R0X_4 
End If 

GoTo BOX. 5 

BOX 4: 
Ren PRVLG 

V&*30e_&fc3l9_«X2S&_G%29e_e*02e = WgS30§_^31fc_$*28<Lefc29&_§%02§ »k 
Rem PRVLG 

we%300&_e5t3lO§„^280§_W29O8^e%20Oe = ffG%30*Le*3l«. &*28G e*2SG_&&029 
Ren PRaG 

CTRL_fffcfc30e,e*23ft_f»%2&e.ST$ TRANSITJON.FLG - CTKL_*-9W0e_^28«_©*299_5TS_TRAKSlTl0N_FtC * 1 
GoTo B0X_E 

B0X_5; 
Rent PRVLG 

If CTRL_wm0©_83628e_9«29»_STS_TRANSITION_FLG_P 
= aRLjrS3&0&^2S&^29&_STSj1?ANSITIO>LFU_PP Then 

GoTo BOX_6 
End If 

GoTo B0X^7 

B0X_6: 
Hen PRVLG 

CTRi_«ft*3(>§_&^lt..W&28e_e»29d_W02O07_VALID_FLG = True 
GoTo B0X_t 

B0X_7: 
Real PRVLG 

CTRL_te%30e„W29©_TNC_FLG ~ True 
GoTo B0X_E 

B0X_E: 
End Sub 

Rem *** PRCEN& 
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Option Ejtpli-jit 
Rem 3DEFFVB 
Rex FUB4N3 

Private V&%3O«.W3l^eX28t_W29«_«S£O2^(€%2$0,^27e) As Integer 
Ren PUBJN3 

Private W^305O*3l S§_e%2ase_fi<2950_9SS2OO9{W266e, ^766) As 8%236§ 
Rem PUBSC3 

Private CTRU_W§«0«_§9i2fie_a3i29e_STS_TRANSITION_PLG As Integer 
Ren PUBSYS 

Private CTRL W§%30e &X28e_9X29e_STS_TRAKSlT10ICFLG_P As Jnieaer 
Kea PU&6B3 

Private CTRL_fte*30#_8*28«_W629^STS_TRANSITI0N^FU_PP As Integer 
R«m PUBGF3 

Private CTRI_T»3W0&_8X3l«_e5<2S«_«?l2O^_e>iO2e_NaT_VALID_FLG(«%26e. W27«) As Boolean 
Re* CDEFEND 
Rea «DEFPRV 
Ren PRV2T3 

Private ?<«30e_mie_^2Be_^29e_§%02€„wk (6^266, 6X27«) As Integer 
Ren PRV7R3 

Private CTRL 1^*309 &&29% ifv& FIG As Boolean 
Ren PUBKU 

Private CNS_fU)T_KUiLInteger As Integer 

Private Gyou as Integer 

Private Retu as Integer 

Private Uti_Cnt as Integer 

Private Soto_Cnt as Integer 

Private Uti_Uax an Tnteger 

Private SotoJia* as Integer 
Rem JPRV2W3 
1*1626 
R*n JPRV2E3 
Rem $PRV4«3 
9X1659 
Ren IPRV4E3 
Ren #DEFEND 

Public Sub MainO 
Reo SVECREP Private Sub L3_8*3l&_eX285MTC29e_e%0290 
Gyou = 0 
Retu = 0 
Rem PRVLG 

If 9fc34* < 3*359 then 
Rem PRVLG 

Uti.Max = 6fc26e 

Rem PRVLC 

Soto_Uaz = ©S27B 
End If 
Ren PRVLG 

I If W34& > 9*353 then 
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Rea PRVLG 

UtiJAa* = «%27# 

Reo PRVLG 

End If 
Uti.Cnt = 0 
Soto_Cnt - 0 
Do Until Soto.Cnt = Sotojla* * 1 
Uci_Cnt = 0 
Rea PRVLG 

If g%34$ < 9*356 then 
Gyou = Uti_Cnt 
Retu = Soto_Cnt 
End If 
Ren PRVLG 

If 0X349 > then 
Gyou = Soto_Cnt 
Rctu - Uti_Cnt 
End If 

Do Until Uti Cnl = Uu_Mai + 1 
B0X_l: 
Rem PRVLG 

If W©%30«_©X3ie_W28e_«629§_«602&(Gyou,R«tu) = CNSJ<QT„KUH_Integer Then 

End If 

GoTo B0X_E 

B0X_2: 
Rem PRVLG 

mm 

B0X_3: 
Rea PRVLG 

If W^30g„«S3L«_9%2Se_e%29&_eiC02§_wk(Gyou r Retu) <> CNS^NOT.KUH.Integer Than 

Goto BOX_4 
End If 

GoTo BOXji 

B0X_4: 
Ren PRVLG 

tf8H3U©_eS31«_^2»«_^9«_#3602&(Gyou. Retu) = Wt*30e_^3li_e^se_e*29&_*^02eLwMGyou. Retu) 
Rem PRVLG 

CTRlJ^K30eL^8©_W29$_$TS_TRANSETION_FLG = CTRU.TO30e_«2Se_»2D8_$TS_TRANSITION_FLG + 1 
GoTo B03LE 

B0X.6: 
Re« PRVLG 

If CTRL_?e*30e_@«28e_«l29©„STS_TRANSITION FLG P 
= CTRL_?e%30e_e« 288_«H29^„ ST S. TRANSITION FLG PP Then 

GoTo BOX 6 
End If 

GoTo lit>X_7 
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B0X_6: 
Rea PRVLG 

CTRL_^30&_6\31»_e%28«_9S29#..9%02& NOT VALID KLG (Gyou. Retu) = H ue 
GvTo BOX E 

B0X.7: 
Kea PKVLG 

CTT?L^ffW309_e%29e-ING_FLG = True 
GoTo E0Jt_E 

BCX-E: 

Uti_Cnt - Utl_Ctit + I 

Rem PRVLC 

Tf \ 6*353 then 

Gyou " Uti_Cnt 

Retu = Soto.Cnl 
End if 

Ren PRVLG 

I If ©%34© > then 

Gyou - SotojCnt 
Retu = Uti_Cnt 
End If 

Loop 

Soto_Cnt - Soto_Cnt + 1 
Rea PRVLG 

If 6*346 < 054958 then 
Gyvu = Uti_Cnt 
Relu = Sotu_Cnt 
End If 
Ren PRVLG 

If 3X34$ > 6*368 then 
Gyou - Soto_Cnt 
Retu - Uti_Cnt 
End If 
Loop 
Gyou = 0 
R«tc = 0 
0ti_Cnt = 0 
Soto_Cnt = 0 
(Jti.Wax = 0 
Soto.Uox 0 
End Sub 

Ren *«* PRC END 
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[option Explicit 
Rem fiDEJTUB 
Rem PU34N4 

Private V&3l#_G%n%-&2aQ_®%29#_f&Q2V{<!f&6Q.ei2n) As G*23« 
Rem PUB1N4 

Private VeS305§.e%315e^285«_e*295t - e*200&(W2e5« > W2T5§> As &S235S 
[Ren PLB5C4 

I Private CTRL WG*3OG_e^8e_^9©-STS_TRANSITI0N_FLG As Integer 
Rem PUB5Y4 

Private CTRL »^30«_9%28e_W29^_STS_TRANSITl0N_FLG^P As Integer 
R«m PUB5B4 

Private CTRL_H§%30e_W28&_«9£29&_STS_TRANSlTIONJ 7 LG_PP As Integer 
Uera PUB6F4 

Trivate CTRL_WW30§.e«3lll_€%288«eS29e«^O2#_NOT_VALID..FLG(i%26e i 9*278) As Boolean 
Rem ftDEFENO 
Bern PUB4R4 

Private m3008_9Jt3lO<*_B*280& 6*2906 W200« <«*266. «*2 70) As 63523& 
Ren PUB4M3 

I Private »3_eX31t»_i«28§ «2yd_e*v2&(«*2 W. ©*27«) As Integer 
Ren PCB4N2 

I* Private *2_e«3li_«28e_«*29e_^%02#(e%26g, I>?i27«) As 9*23$ 
lReaJ flDEFPRV 
Rem PRV2T4 

Private W^%3 06.6^3 L§_§%28«_«i29Q_«%0 2 ft_wk<83626§. «%279) As 03239 
IRwh PRV7R4 

I Private CTRU*9«0€Lfc*2Se_ING_FLG As ^leao 
Ren ♦PUBKH 

I Private CNS_N0T_KUH Sti in* As Stritu 
Private CNS_N0T_KIH_ Integer As Integer 
Private C*S_MHjaiI_Boolean As Boolean 
Privar^ CNSJTOTJCUILLong As Long 
Private CNS_NOT„KUH_S ingle As Single 

Private CNS_NOT_K'JILDcuble As Douhle | 
I Private CNS_NOT_KUH_Vn riant As Variant 

Private CNS_NflT_K[JH_Currency As Currency 

Private CNS_NOT_KUH_Byte As Byte 

Private CNS.NOT.RUK Date As Date 

Private Gyou as Integer 
I Private Retu as Integer 
I Private Oti.Cnt as Integer 
I Private Soto_Cnt as Integer 
I Private Utijdax as Integer 
I Private Sotojiax as Integer 
iRem JPRV2W4 
6*172© 
Rem *PRV2Rt 
Rem SPRV4W4 
U%L32@ 
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Ren JPKV4E4 
[Ren 8DEKSND 

Public Sub UainO 
|Kea &VECREP Private Sub L4_e*3l«_©1^^e%29&_e*02$O 
Gyou - 0 
Retw = 0 
\Ks% PRVLG 

If §*34$ < 9*356 then 
|Reo PRVLG 

UtiJKax = e%266 

|Retri PRVLG 

Soto_yax = fr*278 
End If 
|R«m PRVLG 

If 3*349 > e%35« tli on 
|R«i PRVLG 

UtiJAax = 
Rec PRVLG 

Sot o.Max = «SC266 
End If 
Uti.Cnt = 0 
Soto_Cnt - 0 
Bo Until Soto_Cnt - Soto Max + I 
Utl.Cnt = 0 
iRea PRVLG 

If 6*349 < 9*358 Ui«n 
Gyou - Lti_Cnt 
Retu - Soto_Cnt 
End If 
I Ren PRVLG 

If 9*346 > 9*3 B8 then 
Gyou = Soto.Cnt 
Retu - Uti_Cnt 
End If 

Do UntiJ Uli.Cnt = Uti_Hax + 1 
BOX l: 
|Reu PRVLG 

If f&%309_9K3l@_eS2S9_9*299_§*029<Gyoii,Rctu) - CNS_NOT_KUH_e%239 And _ 
|Re D PRVLG 

W3_^l9_9*2SG_§*299..9*029<GyoiJ,Retu) = «%07B Then 
GoTo Rf>X_2 
End If 

GoTo BOX. E 

B0X_2: 
I Rem PUB IN 

If ?«^305e_W3LSe_«263e_«%295€^e%200Q(Gyou.Retu) = CNS_N0T_KUH_Pfc235« Then Go To Box. 3 

iKen PRVLG 

«17§ 
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BOX. 3: 
Kern PRVLG 

if W8%30«_^l3lB_a^28^^i29e.©?iO2^wk(Gyou,Retu) O CN5_flOT_KUH_e*23e Then 

GoTo B0X_i 
End If 

GoTo BOX_5 

B0X.4 : 
Ren PRVLG 

t^oe_e%3ia_e*28»_e«298_^S02e(Gyou.Retv} = W«%3&« mie_e*28fc_&*29&_e%02§_wk<Gyou, Retu) 
Ran PRVLG 

7f>M0Dft_e%3l(W_«1i280«?_e%29O9_€«2OO«<Gy?>ii, Relu) = ffe%30«_f%3l9_$*28e_»^29@_W02e(Gyou. Retu) 
Rem PRVLG 

CTRL_W8%308_t«23e e%29B. STS .TRANSIT 10N_FLG = CTRL_W^Q«_^28G_9%29e_STS_TRAKSITI0N_FlX; + 1 
GoTo B0X_E 

BOX 3: 
Rem PRVLG 

If CTRLJ^30e_e^289_W29^T$jrRANSm0N^FLC_.P 
= CTRL«W^30#_8S628e_e«29@_STS_TRAKSllTION_PlG_PP Then 
GoTo B0X_6 
End If 

CoTo BOX. 7 

B0X.6 : 
Ren PRVLG 

CTRL_Sf*%30e_e%316 ©&28« ^293 Jft02ejWTJfALEDJT_G (Gyou. Retu ) = True 
GoTo BOX H 

B0X..7: 
Rem PRVLG 

CTRLJfefc30S_@&29e_ING..FLG = True 
GoTo BOX_E 

B0X.E: 

Ut1_Cnt = lki_Cnt * I 



Ren PRVI.C 



Tf f&348 < then 
Gyou - Lti Cut 
K«lu = Soto_Cnt 

End If 



Ren PRVLG 



If $%34« > fe%35§ then 
Cyou = Soto_Cnt 
Retu - Uti_Cnt 
End If 

Loop 

Soto_Cnt - Soto Cnt + 1 
(Rem PKVLG 

if «X-349 < 8*3 59 Umui 
Gyou - Uti_Cnt 
Retu = Soto_Cnt 
End If 
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Rem PKVLG 

K 3*349 > $6358 then 
Oyuu = Swto_Cnt 
Retu - Uti_Cnt 
End If 
Loop 
Gyou = 0 
Retu = 0 
Uti_Cnt - 0 
Soto_Cnt = 0 
Uti_Uax = 0 
Soxo^klax - 0 
End Sub 

Res *** PRCEND 
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Option Explicit 
Re* SDEFPUB 
Ren PUB4N3 

Private ^3OO\31fL^28G_e*29e_eS02«(a%26e, 6%27&> As Integer 
Ken PUR T S3 

Private »«C305« #%3lS9 J&2S59_l»295@_^200&(ra265e. 6*27&$) As W235& 
Ren PUB5C3 

Private CTRL W^3W_W288_a*298_STS_TRANSITIQN_FLG As Integer 
Rea PUBfcYli 

Private CTRL tfe%30«_^i28«_e3i29e_STS_TRAKSITI0N_FLG_P As Integer 
Rem PCB5B3 

Private CTRUW^%30e_*3(i28e_e5£29^STS_TRAN517I0K^FLC_PP As Integer 
Ren PUB6F3 

Private CTRL_W§WO6_83631ft_65S28ft_^29fi_^%02@_K0T VALID FLG(8?(2&3, 6*278) As Boolean 
Rem ^DEFEND 
Rem sDEFPRV 
Rein PRV2T3 

Private TB%30«_84318 €tt28« W29e_e*tf2«_vk3X079(9*26&, «*279) As Integer 
Re* PRV7R3 

Private CTRL_W§%309_«%296„IKG_FLG As Boolean 
R«u PUBKU 

Private CNS_NOT_XUII_Integer As Integer 
Private Gvou as Integer 
Private Retu as Integer 
Private Oti.Cht as Integer 
Private Soto_Cnt an Integer 
Private Uti_\lnx as Integer 
Private SotgJiaA as IntegeT 
Rem $PRV2?3 
&M62S 
Kea (PRV2E3 
R«u $PRV4V3 

Ren $PRV4E3 
Ren SDEFEND 

Public Sub KainO 
Rem gYBCREP Private Sub L3Jim9_W23§_«*2!«_WQ2«0 
Gyou = 0 
Retu = 0 
Ren PRVLG 

If WfciQ < 8*3S€ then 
Ren PRVLG 

Utijlax = SX26§ 

Ren PRVLG 

SotoJtn* - e%27$ 
End If 
Rc<n PRVLG 

If 3*348 > 9ft35G then 
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^WJ i o -egaisfrs^ WH, 3 (jE%) - 2 

Rein PRVLG 

Utijrfax = e*27§ 

Re* PRVLG 

Sot Wax - 3*260 
End If 
L'ti_Cnt 0 
Soto Cnt - 0 
Do Until Soto Cut - Soto Hsx - I 
Uti Cnt = 0 
Ken PRVLG 

IF «*349 < then 
Gyou = Uti.Cnt 
R«tu ~ Soto_Cnt 
End If 
Rem PRVLG 

If SS348 > &*3K8 then 
Gyou _ Soto_Cnt 
Retu = Uti_Cnt 
End If 

Do Until Uli_Cut = Uti.Hax + 1 
Ren PRVLG 

If m30$_$tt l$_^28e_e%29&_$%02e (Gyou, Ret u) = CNS_NOT_KUK_Inte E er Then 

Goto B0>L2 
End If 

GoTo B0X_E 

BOX. 2: 
Rem PRVLG 

B0X_3: 
Ken PUBL3F 

If m30«_»X31&_e%28^«%298.W02«_wkW07^(GTOu.Retu) = 1 Then GoTo BOX_4 
GoTo B0X_5 

D0X_4: 
Ren PLTBL3F 

If T8%3Oe_eX3l§_0%288_e%299„W[>2§_wk8SO78(GyotJ,Retu) = 1 
Then m309 %%2&Q. ©%2W_05M)2e(Gyo U , Retu) = «S07« 

Ren PRVLG 

aRL_«Wl3O0_e%28§_©^298_STS_TRANSlTlON_FLG = cm_W^309_^2S«_tfK29«_STS_TRANSlTI0N_FLG - 1 
GoTo BOX_E 

Rem PRVLG 

I f CTRL_ff&%30fc_fcC28&_e*29§_STS_TRANSlT 1 0N_FLG_P 
= CTRL_W«&30f_^28^$i29gLSTS_TRANSIT]0N^FLfi^PP Then 

GoTo B0X_6 
End If 

GoTo B0X_7 

Rem PRVLG 
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I i' C'l RL_WeS30«_e%28e_W29#_STS_TRANS [TI0N_FLG_P 
= CTRL_m30«_^8€_9»29e_STS_TRANSITIQK_FLC_PP Then 
To B0X_6 
End If 

GoTo B0XJ7 
B0)L6: 
| Rem PR VLG 

CTRl..we$30^e%3Se,«t23e_eX29e_e*02y.NOT VALID KLG(Gyou, Ketu) = True 
GoTo B0JL.E 
B0X_7: 
iRem PRVLG 

CTRL WW30«..«%29e_ING_FLG = True 
Gi>T*j B0X_E 

B0X_E: 

Uti_Cnt = Uti^Cnt * l 



Ren PRVLG 



If i&34e < «f*36G then 
Gyou = Uti.Cnt 
Retu - Soto_Cnt 

End If 



Rem PRVLG 



If 8X348 > then 
Gyou = Soto_CM 
Retu = Uti.Cni 
End If 

Loop 

Soto_Cnt = Soto_Cn t - 1 
IRcp PRVLG 

If < <!*35« then 

Gyou = 0ti_Cnt 
RwLu = Solo.Cnt 
End If 
IKwd PKVLU 

If 8963-39 > 6*351 then 
Gyou = Soto_Cnt 
Retu = Uti.Cnt 
End IP 
Loop 
Gyou = 0 
Retu = 0 
Uti.Cnt = 0 
Soto.Cnt = 0 
UtiJIax = 0 
Soto_Max = 0 
lEnd Sub 
Rem *** PRCEND 
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Optjuu Explicit 
Rem SDEFPUB 
Rem PUB4N4 

I Private ve*3^e^^_e%2afe^29S_^02ftC^%26«, ©9i27ft) As &*236 
Rem Pt'BirM 

Private W%305»_e563168_^285«_*3i295e..W420t)e(^2656. 0*27rW As 9X2358 
Reo PUB5C4 

Private CTRL_W»£3Q&_ 6X289.8*298 ST 5 TRAK31T lON_FL(j As Intwg«i 
Ren PUB5Y4 

Private CTRL_W^30?_e362Sg_«%29©_SlS^TRANi>ITIOM_FLG_P As Integer 
Ken PUB5B4 

Private Cm_m309_W2SeL«%29©_STSJTRANSITI0NJLG_IT As Integer 
Kmc PUB6F4 

Private CTEL_?^30e_^3lg_^28@^eX29«_0%028„Nnrr_VALIC_rr.G(^26€ I &fc27«0 As Boolean 
Rem ttDEFEND 
Ren PUB4B4 

Private m30te_a^lOfL^808_e*29Og_e1t20O§ (6X26&. 9K27&) As 
Ren PUB4N3 

Private W3_t»%31& &X28* &*29© G*02e(«*2be\ Gtt27S) As Integer 
Ren PUB4N2 

* Plicate W2^3l§_l»2Se_«629©_«%02«(«%26«.^27e> As G*23S 
Ren 8DEFPRV 
Rem PRV2T4 

Private m3O€_e<31^S28t_99&29e_#«02©_»k (e»26e. 69S27&) As 9*239 
Rem TRV7R4 

Private CTRL_«W30€^29e.IMG_PLC As Boolean 
Ren *PUBKU 
Private CNS_N0T_KUH_S t r in a As String 
Private CNS_N0T_WJH_Int«fler As Integer 
Private CNS_WT_KUtLBoolean As Boolean 
Private CNSJWT.KUlLLong As Long 
Private CNSJtOT.KUlLS ingle As Single 
Private CN3_N0T_KUH_Double As Double 
Private CNS_NOT_KUH_Variant As Variant 
Private CNS_N0T_KUtLCorrency As Currency 
Private CNS_N0T_KUH_Byte As Byte 
I Private C*S_N0 r_KUH_lfeUe At; Date 
Private Gyou as Integer 
Private Retu as Integer 
Private Uti_Cnt as Integer 
Private Soto_Cnt as Integer 
Private Utijtax as Integer 
Private Soto_Uax as Integer 
Ren SPRV2V4 
GK172H 
Rem 5PRV2E4 
Rem $PRV4*4 

wti82e 
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^ilU0-C^^H6^h^L4 (jEgO -2 

|R«n JPRV4E4 
Ren ttDEFEND 
Public Sub MainO 

#VECREP Private Sub H_.€S31§ &*289_8*29e_eK02e_Wt>7«<) 
Gyou = 0 
Rciu - 0 
Rem PP.VLG 

If efc34S e*35& then 
Rea PRVLG 

Utijlax = SfclGG 

Kwq PRVLG 

Sotojlax = 8X27© 

End If 
Rem PRVLG 

If 8*34$ > 8X3 then 
Ren PRVLG 

Utijlax - 8K278 

Ren PRVLG 

Soto Max = e*26G 
End IT 
Uti_Gnt = 0 
Soto.Cnt = 0 
Do Until Soto.Cnt = Sota.Max + 1 
L'ti_Cnt = 0 
Rera PRVLG 

If 3*346 < 6%358 then 
Gyou = Uti_Cnt 
R tt tu = Soto.Cnt 
End If 
R«u PRVLG 

If #34© > ©*3S£ then 
Gyou - Soto_Cnt 
Retu - Uti_Cnt 
End If 

Do Until Uti Cnl = Uti.Max + 1 
B0X_1 : 
Rein PRVLG 

If we*30e_«3ie_e^8*_«29e_e*02e (Gyou, Retu) = CNS_KOT_Ki:H_e*23§ And 
Rep PRVLG 

V3_&*3lG_e%2S&_e*293_e*02« (Gyou, Retu) = 8*078 Then 
GoTo BO)C_2 
End If 

Goto B0X_E 

B0X_2: 
Rctn PUBIN 

if W8»3059_W3lUe_e%285?_9X295».e%200e<Gyoii.Retu> = CNSJf0T_KUH_e*236§ Theji Go To Box_3 

Ron PRVLG 
! 9%17i 
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B0JL3: 
Rwm PRVLG 

If W^30G_^lt_e^a9_W29^W028_^)t(Cyou. Retu) <> CMS_N0TJCUH_&%23& Then 

GoTo B0X_4 
End If 

GoTo B0X_5 

Rem PRVLG 

ff«%3De_^31«_W28g,&X29@_9%02i{Gyou > ReLu) = m30&_^l8_^2S©_e%29e_«*02g_wk (Gyou, Retu) 
en PRVl.G 

7e%3«H!_eX310e_e«2SO» #12906 0*2008 (Gyou. R«tu) = m30$_e*3l8_«X2o8_«&299_e*02#<Gyou.Retu) 
Ren PRVLG 

CTRL ¥«i30« eX28e„e , W9§_STS_TKANSITWN_FLX; = Cm_m30O*28e_«*299_STS,JRANS[TiaN_FLG + 1 
GoTo D0X_E 

B0X_&: 
Ren PRVLG 

If CTRL^«X30&_^28^_e%29e_STS_TRAWSIT]ON_Fl.G_P 
= GTRL_ff«5S3Q&_e%28e_W9e_STS_TRANSTTI0M_FLC_PP Then 

GoTo R0X_ft 
End Tf 

GoTo BOX. 7 

B0X..6: 
Keo PRVLG 

CTKi_W^30e_«?3l9_^28e_C%29«_«ia2«_NOT_VALID_FLG(Gyou,Hetu) = !*\ie 
GoTo B0X_E 

BOX.?: 
Reo PRVLG 

CTR1_?3X3WU«29&_IKC_FLG True 
CoTo BOX_E 

B0X_E: 

Uti.Cnt = Uti Cut * 1 



Rem PRVLG 



If «%348 < 8*358 then 
Gyou = lrti_Cnt 
Retu - Soto_Cnt 

Bud If 



Ren PRVl.G 



Tf «%34G > 0%35» then 
Cyou = Solo.Cut 
Retu = Uti_Cnt 
End It- 
Loop 

Soto_Cnt = Sotc_Cnt •» 1 
Rem PRVLG 

If 0*343 < 8K358 then 
Gyou " Uii_Cnt 
Retu ~ Soto.Cnt 
End If 
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Rem PKVLG 

If «*346 > &fc3SG then 
Gyou = Soto_Cnt 
Sctu = Uti.Cnt 
End If 
Loop 
Gyou = 0 
Retu - 0 
Uti_Cnt = 0 
Soto_Cnt - 0 
CtUMax = 0 
Soto_U«x = 0 
End Sub 

Reai *** PRCEND 
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l-?&M£*lZ><<? h^L3 (K) -1 



Option Explir.it 

em #DEFPUB 
Ren TUB4N3 

Private m30e_8fc3ie_e22S«\_e*298_9S02$ As Integer 
Ren PUBIN3 

Private W^30S9_»?1315«_^2SD9_©*29G8_^00& As ©%235$ 
Ren PUBSC3 

Private CTRL_We^30e_^2£i_^29e_STS.TRmSIT10M_KL<; As Integer 
Reo PUB5Y3 

Private CTRL_W©fc30S* §*28§..§%29eLSTS_TRANSIT10N_FLG_P As Integer 
Rem FUB5D3 

Private CTRLJf«*3WLe%28e_e*29# STS T RANS1 T I0N_FLG_PP As Inlexer 
R*u PUB6F3 

Private CTRL_m30§. 0*31© ©%28^e<29«_^029_N0T_VALlD_FLG As Buolean 
Rem SDtr'ENP 
Rem fcORFPRV 
Rem PRV2T3 

Private W^oe_e*31«LfiX28§_6*29&_B*D2e «X As Integer 
Rein PRV7R3 

Private CTRL_«§*30e_e%29fi_rNC_PLG Aa Boolean 
Rem PUBKU 

Private CNS_N0T_Kl(H_J nteger As Integer 
Rem SPRV2V3 

Ren $PRV2E3 
Rem $PRV4*3 

Reo SPRV4E3 
Rem DEFEND 

Public Sub MainO 
Ren tfVECREP Private Sub 13^8^3 1«_«%28«„©%298_««02«<) 

BOX_i: 
Rem PRVLG 

If w§toot_W3Lt_W28e_«%29e_e?C02e = CNS_N(1T_KUH_I nteger Then 

GoTo BOX_2 
End If 

GoTo BOX_E 

BOX_2: 
Rem PRVLG 

B0X.3: 
Rem PRVLG 

If ffe%308_6*319 g%28«_e%29O?i02«_wk O CNS_NOTJCUH_ Integer Then 

GoTo B0X_4 
End If 

GoTo B0X_5 

B0X.4: 
Rea PRVLG 
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gftSLRlJl (K) -2 t 

W^30e_^ie_GS*$9_8fc29«_@K02e = W^0«_e&3 lg_©K28ej3%29$_e*&2e.^k 

Ren PRVLG 

CTRL ff«L30«_«t238.e*2ye.STb\.lR.%NSITIOr^FLG = CTRl_W^3Oe_^28O%290-STS_TRANS7TTON_FLG + I 
GoTo B0X_E 

BOX. 5: 
Rem PRVLG 

If CTRL .m30e_&£2Sa_^2y§_Sfi>_TRANSITIOtf_FLG^ 
= CTRL_»e%30^_eX28«_e%2C}^STS_TRANSTTtOH_FLGj > P Then 

GoTo BOX. 6 
End if 

GoTo R05C7 

B0X.6: 
Rem TRVLG 

CTRL^*e%30e_«y63L«_e%2S©_ejb296_^02©_NOT_VAiID_RC, = True 
GoTo B0X_E 

B0X_7: 
Rem PRVLG 

CTRL_W9*30e_<#29G_lNG_KLG = True 

GoTo BOX_E 

BOX E: 
End Sub 

Res *** PRCEND 
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Option Explicit 
Reo »DEFriB 
Rem PUB4N-1 

Private f #*30e_@fc3U_e>288_eX29e_e*02e_Sua As 63236 
Rem PUBCN4 

Private m305#_9%3l5&_eii285e_ft<205^_^%200© As $*235§ 
Rem PUB5C4 

Private CTRLJ79%30e_&*2BG_8fc29$_STS_TRANSI7ICN_FLG As Integer 
Rem PUB5V4 

Private CTKL_V^30e_&S28©_W298_STS_TRANSITION^LG_P As Integer 
Ren PURRR4 

Private CTRLJ?^30e_&*28&_^29e_ST3_TRAN5m0K_FLG_PP As Integer 
Rem PUB6F4 

Private CTRL_we%30O*31^W2Bt_9%29e_W02«_K0T_VALrD_FLG As Boolean 
Rem 8DEFEND 
Ren, PUB4K4 

' Private *e%3O0§_^31Oe_e«28Oft_»K290©_e«2O0e As &S238 
Rym PUB4N3 

Private V3_e*3 1 §_8&28eL€«29e_e*028 As Integer 
Rya PUB4N2 

' Private f2_«fc31 e_«9i28e_e%29S_6)k02« As 8X23S 
Ren ttDEFFRV 
Ren PRV2T4 

Private W&1*30©_^ie_e*23e_e^9ejBM>2e.wk As Wi239 
Ren PRV7R4 

Private CTRLJJ#K30e_@%29&_ING_FLG As Boolean 
Rem *PUBK11 

Private CNS_N0T_KUH_SU in* A» String 

Private CNS_NOT_KUH_Tnteger As Integer 

Private CNS_NOTJWH_Boolean As Boolean 

Private CN5_N0TJUlR.Ung As Long 

Private CNS_N0T_KUH_S ingle As Simile 

Private CMSJK)T_KUHJ>ouble As Douhle 

Private CNSJJOT^KUH.Variant Ax Variant 

Private CNS_NfH_KUH-Currency As Currency 

Private CtfS_NOT^Xi:H_Byia As Byte 

Private CNS_NOT_KCH_i>ntc As Bate 
Rem IPRV2W4 

essi?2e 

Rem IPRV2E4 
Rem $PRV4»4 

Ren $PRV4E4 
Ren ^DEFEND 

Public Sub MainO 
Ren ITVECREP Private Sub L4_^3ie_§X2Ba_etf 29^3*0260 

B0X.1 : 
Ren PRVXG 
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If ve5630e_©*31»_W2ae_«%^98_«S«>2«_Sua] = CWS^N0T_KUH_9%23© And _ 
Rem PRY1.G 

W3_W*Sie_eS28e_eK29{?_eX02<S = WW Then 
GoTo B0X_2 
End If 

GoTo BOX^E 

B0X_2 : 
Rea PiraiN 

If We%305©_©%315e_e*2S58_§&2958_e*2008 - CNS_N0T_KUH_Bfc235G Then Go To Box_3 
Ken PRVLG 

B0X.3: 
Ren PRYI.G 

If Wft%309_9%3l«_^2Q9^e3529«_«3602e_wk <> CNS_H0T_KUH^238 Then 

GoTo B0X_4 
End [f 

GoTo B0X_B 

Rem PRVI.G 

we%30e_e&3i^e%28^e%2y^9%02e_Sum - ff©%30e^%31&_^28«^2fl^^02$_vk 
Rem PRVl.C 

W2^31^«?t28«_«t2^^02e = J*^1<L 6*283. e%29e..e%02& *k 

Ren PRVLG 

CTRL We^30e. e*2S« &fc29e.STS TRANSITION FLG = CTRL W8%30€ @S28» ©%29© STS TRANSITION FLG ■+ 1 
GoTo B0I..E 

BOX 5: 
Rem PRVLG 

If CTRL_^30e_e*2Be_iJ%29<LSTS_TRA>tSITION_FtG_P 
= CTRL^e9630e_e%28g.Kt29e.STS_TRAMSITION.FLG.PP Then 
GoTo BOX..6 
End If 

GoTo BOX_7 

BOX_6: 
Rem PRVLG 

CTRL_fffc%306_<j%3 1 6_6&28£_€%29(LG?k02&_N©T_VAL I D_FL& = True 
GoTo BOX_E 

B0X.7: 
Rem PRVLG 

CTRl_ff£%30e_e%29e_]NG_FLG = True 

GoTo B0X_E 

B0X_E: 
End Sub 

Rem •** PRCEWD 
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mmmi 1 1 vmmain^ k^l 2 <k) - i 

Option Explicit 
Re« SPFFPUR 
Retc PUB4N2 

Private »e%30£_$%3 1 e_eX28«_8%29e_e*02e As 0*236 
Rem PUB1N2 

Private *e*305&_e*3l5e_efc285v 1 _e%295e_e*200e As 6X2356 
Rem PUB5C2 

Private CTRL_W30e_e^8e_#K29$_STSjTIt^SlTlO>LPLG As Integer 
Rem PUB5Y2 

Private Cm^we?t30»_©%288_e!C29e_STS_TRANSITiaN_FLG_P As Integer 
Rem PUB5B2 

Private CTKL_m3U8^28e_e*29e_STS_TRANSITI0N_FLG_IT As Integer 
Rem PUB6F2 

Private CTRL_»9%30«_«%3L«_e%28©_e»29«^02^NOT^VAiID^FLG As Boolean 
Rem 8DEFEND 
Ren #DEFPRV 
Rem PRV2T2 

Private V9%20%^j3 i«_^28§_^29@_e»%029_^k As 8C23G 
Rem PRV7R2 

Private CTRL_»fr*30«_e3629e_IN&_FLG As Boolean 
Rem PUBKl 

Private LNS_NOT_KUiLe562J# As 9*239 
Rem JPRV2V2 
9%152« 
Rom JPRV2E2 
Rem JPRV4W2 

Rem IPRV4E2 
Ren 3D E FEND 
Public Sub MainO 
Ren fcVFXREP Private Sub L2_^ie_e*2fi&_§tt29@_e%02e 0 

Rem PRVLG 

If *^OQJM2l9_Q%28$J&&9e_Q%Q29 = CNi>_N0T_KUILe&23& Then 

C0T0 BOX_2 
End if 

G0T0 BOX.E 

B0X_2: 

' ' NOP 
BGX_$: 
Rem PRVLG 

If ?^3O0_^3ie.e3b288_«629«_e%02^wk <> CKS_NOT_KUH_«5C23© Then 

G0T0 B0X_4 
End If 

C0T0 B0X_5 

BOX_4 : 
Rem PRVLG 
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Reo PRVLG 

CTRL_W§%10e_eX28fU&29e_$TS TRANSlTION_FLG = nKL_W9H30e_«C28e_W29©_STS^TRAKSITiON_FLG «■ t 
GoTo E0X_E 

BOX_S: 
Rem PRVLG 

If CTRL_Wfft30^e%28e_e*298 STS.TRANS1TI0N_FLG_P 
= CTRL_W8*30e_e%2S§_e%29?_STS_TRANS3TION_FLG_P? Then 

GoTo BOX_6 
End If 

GoTo BOX^7 

BOX 6: 
Rw> PRVLG 

CTRL.We5630«_«%31B_^289_W2y8^O2«JJOT_VALID^FLG = True 
GoTo BOX.E 

B0X_7: 
Ren PRVLG 

CTRL weS30e_§%29«_ING_FLG = TTue 

GoTo B0X_E 
B0X_£: 
End Sub 
Rea *** PRCEND 
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Option Explicit 
Rem 8DEFPUB 
Ren PUB4K3 

Private We%30€>_e9&3ie_tfi28&_&*29$_Jtt02e A* Integer 
Reo PUB INS 

Private we*305e_G#315e_^285&_«%295e._e*20Oe As §5*2366 
Ren PUB5C3 

Private CTRL_m30t_«%2S^W29«_STS_TSA.HSlTI0N_FLC As Integer 
Rem PUB5Y3 

Private CTRLJ?W30e_^28e_e*299_STS_TRANSlTI0N_FLG_P As Integer 
Rem PU35B3 

Private CTKlJtfW30e_^28S_^9«_STS_TRANSITI0N_FLG_Pr As Integer 
Rem PLR6F3 

Private t*na_tf65fcU0^9%Jl9^28e_e?i29e^3502«_NOT_VALIDJJLG As Boolean 
Rem fcDRPEND 
Ren- SDEFPRV 
Rem PRV2T3 

Private ?^3O§_^%31fi_&3t28^e%290_©9iO2&_*k As Integer 
Ren PRV7R3 

Private CTRL_*eS3D9_Gfc29«_ING_FLG As Boolean 
Rem PUBKU 

Piivatv CWS_N0T_KUH_lnteger As Integer 
Ren JPRV2W3 
3*1823 
Rea 3PRV2E3 
Ren SPRV4V3 
6* IBS* 
K»n $PRV4E3 
Ren #DF.FFND 

Public Sub MainO 
Rem 8YECREP Private Sub L3_**3l8_8S28«_e<29e_eX02e 0 

BOX_l: 
Reto PRVLG 

If »9%30*_Wt3ie_e?i28«_&*29»_e%02§ - CNS_NO?_KLlI_ Integer Then 
CoTo B0X_2 
I End IT 

GoTo B0X_E 

80X_2 : 
Rem PRVLG 

esiee 

B0X_3: 
Reo PRVLG 

If W§^oe_e«3ie_QX288_«%29e_e*02e_wk <> CNS..N0T Kim Integer Then 

GoTo BOX_«J 
End If 

GoTo HOX.G 

B0X_4 : 
Rem PRVLG 
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m3oe_e%3i& 9*28« e%29&_*rt02g = veH3o§_§<3i&_e^8<3^ev29e__&%o2e^k 

Ken PRV'LG 

CTRL_W6'430fLa*23e_®629§ STS TRANS ITIOJLFLG = CTKL_*e%30&^286_«(29e_SrS_TRANSlT10K_FLG - I 
GoTc D0X_E 

B0X_B: 
Ren PRVLG 

If CTRL H@%3»8_e%28€_e%29»_STS_TRAN31TJON_FL<i_F 
= ClRL_m30«_e%28e_e<29e_STS^TRAKSIT]ON_FLG_PT > Then 
CoTo B0X_6 
End If 

GoTo R0X.7 

B03L6: 
Ren PRVLG 

UKL_W§*3U©_eS3L«_W28i_^29t_«02e_NOT_VALID_FLG = True 
GoTo R0X_E 

BOX. 7: 
Re* PRVLG 

CTRL_W»%30i_eS29§^lNG_FLG = True 
GoTo BOX_E 

B0X.E: 
End Sub 

Rem *** PRCEND 
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Option Explicit 
Rem flDEFPUB 
Ken PUB4N4 

Private fi0*30a_e£3ie_£<2&@_&X29e_e*O2§ As 9X236 
Rya PUB1N4 

Private H^%305e_©*3l5e_W2B5ft_W295e.e?i200@ As 3S235§ 
Reia PUB5C4 

Trivate C TRL_W^oe_e¥28§J3*29$LSTS_ TRANSIT 1 0N_FL€ As Integer 
Ren PUB5V4 

Private CTRLJf«&3uS_W28@_^9a_ST$_JRAMSlTI0N_FLr,._P As Tnteger 
Rem PUB5B1 

Private CTRL_S?«%3O«_^t2S&_09&29e_STS_TRANS]TLON_FLG„PP As Integer 
Re» PUB8F4 

Private CTRLJ?&S309_§*3 l9_W2«e_M29&_&fcO2&JJ0T_VALIP_FLG As Boolean 
Ren DEPEND 
Rem PUD4D4 

PrtvHte ffe%3006^6lb3l08_«%280«_«%290e_eX200« As ©%23§ 
Rem PUB4N3 

Private W3_es£3lP_§%28©_@fc29ejft02e As Integer 
Rem PUB4N2 

Private *2_efc3 I a_eK28e_GS29(L«*028 As €3233 
Rem tfDEFPRV 
Rem PRV2T4 

Private m3O«_§X3l8_W28e_^29tL<ttO20_*k As 6*238 
Rem PRV7R4 

Private CTRL_m30G_9%29e_ING_FLG As Boolean 
Rem *PUBKU 
Private CNS_NOT_KUILStr ins As String 
Private CNS_NOT_KUH_Integer As Integer 
Private CNS_NOT_KUR_Booleaji As Boolean 
Private CKS_NOT_IUH_Long As Long 
Private CKS_N0T_KUH_S ingle As SinRl« 
Private CKS_>J»TJtUlLDouble As Double 
Private CNS NOT.KUtLVariant As Variant 
Private CNS_NOT_KUHLCur rency As Currency 
Private CNS N0T_KUH_flyte As Byte 
Private CNS_NOT_KUH_Date As Date 
Rem SFRY2W4 
8*1720 
Rem *PRV2El 
Rem *PRV4W4 
e% 1826 
Ren (PRV4E4 
Rem dDBFEND 
Public Sub MainO 
Rem iJVECREP Private Sub U ^3KL8%28«>J»29e.J»02eO 
B0X_P 
Ren PRVLG 
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If m309_eX3l&_#42fi§_&%29S_WO2§_*k = CNS_N0T_KUH_&S23e And _ 
Rem PRVLG 

W3_<a%3ie_e^»§^299_«)i02e = 6*073 Then 
GoTo BOX_2 
End If 

GoTo ROX_R 

BOX_2: 
Kern PUStN 

Lr m30S«_eS315e_$*2858_W29G§_§*2O0e ■ CNS_N01_KUH_W235$ Then Go To Box_3 
Rem PRVLG 

BCd_3: 
Ren PRVLG 

If W^O«_e)6aie_e3t2B«_e%29§_eii02»_wk <> CNS_N0T_KUH_6323fl Then 

GoTo B0X_4 
End If 

GoTo BOX. 5 

B0X.4: 
Rem PRVLG 

V^oe_e&3ie_&fc28*_e3629^e*&28 = ?G*30e_^3lM#28<LW29&_G%02<Lvk 
Rem PRYLG 

CTRL_»e!C30€_8X28«_«29e^STS_TRANSITrOK_FLr. = CTSL_We%308_^2B^Le5fi29e_STS_TRANSlTION_FLG + 1 
GoTo BOX E 

U0X_5 : 
Sea PRVLG 

I f CTRL_W8*309_«28§_W29^_STS_TRAKSI T 1 0N„FLG_P 
= CTRL Ve%30@_«%28e_^29«_STS_TRANSITION_FLG_PP Then 
GoTo B0X_6 
End If 

GoTo B0X_7 

BOX_6: 
Reu PRVLG 

CTRLjr8X30e_gtt3ie_e*288 3*296 e5e320_NOT_VALID_FLG = True 
GoTo BOX^E 

BOXJ7: 
Ren PRVLG 

CTRL_/efc308_g%2S8_l.NG_FLG = Tru« 
GoTo BOX_E 

B0X_E: 
End Sub 

Ren *** PRC END 
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Option Explicit 
Rem fcPEFPUB 
Rem PUB4N3 

Private 9&X30e_§*3ie_e5&28e_e*29&_&*02e As Integer 
Rem PUB1N3 

Private i«*'JU5e_«%3 15@_Q%285^_e%295»_e%200e As 6)52356 
Rem PUB6C3 

Private CTKL_WW308_W28«„e%298_STS_TRANS[TlUN_FLG As Integer 
Rem PUBBY3 

Private aRL_m30«_«^28«„W299_STS_TRAKSlTI0.1_FLG^P A* inUgtrt 
Rom PUBSR3 

Private aRL_»9\308_«%2S§_©S29e_STS_TRAfSIT I0N_FLG_PP As Integer 
Rea PUB6F3 

Private CTRL^eW0».8%3ie_©H28§_e»29«.«%02&_NOT_VALID_PLG As Boolean 
Ren 8DEFEND 
Rem #DEFPKV 
Rem PSV2T3 

Private W£*3 D^_t?%3 l«_^28^_^2^_0%02^_vk^%078 As Integer 
Rem PRV7R3 

Private CTRL m30«. 6X298 ING.FLG As Boolean 
Rem PUBKl" 

Private CNS_N0T_KUH Integer As Integer 
Rem $PRV2»3 
6* L 62ft 
Rem $PRV2E3 
Rem JPRV4K3 
0*1659 
Rem $PRV4E3 
Kern JtDEPOND 

Public Sub MoinO 
Kew »V£CREP Private Sub L3.@%31«_W28e_e%29@_W02e<) 

B0X.1: 
Rem PRVLG 

If ff©«aO«_e«3ie^28e_«%29e_ei£02S = CNS_NOT_KLW_Integer Then 

Go To BOi_2 
Rnd If 

Go To BOX_E 

B0X_2 : 
Rem PRVLG 

6X169 

B0X_3: 
Ren PUBL3F 

IT *&*30e_^3ie_e*288_«29f_e%U2e_wke*U7& = l Then G^To BOX_4 
GoTo B0X.5 

B0X.4: 
Rem PUBL3F 

If m308_l«431«_e%28»_eX29§_W02e_wkeX07« = 1 Then VS*30a_mi3ie_«S2S«_e%29*LlJ?i02g = 8*079 
Rest PRVLG 
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fejfejftfl'J 1 WH. 3 (K) - 2 

CTRL_ff^C30e_Syi28@_05£29Q_STS_TRANSITICK_FLG = Cm_K@%30e_Gme_etf299_STS_TRANSmON_FLG - 1 
GoTo BOX E 

B0X.5 : 
Rem PRVLG 

If CTRL_We%U0?_«X2Se_«2y@_i>TS_TkANSl1ION_FLG_P 
- CTRL_W^30e_e%28e_e\29ft_STS_TRANSlTIOM_FLG_PP Then 

GoTo B0X_t> 
End Tf 

GoTo B0X_7 

B0X_6: 
Ryu PRVLG 

CTRL_we%30e_eX3i«_§*2fi©«e*29^WO2e_NOT_VALID_FLG = True 
GoTo BOX E 

B0X_7: 
Rea PRVLG 

CTRL_Se*30e_e9te9e_tKG_FL& = True 
GoTo 30XJE 

BOIJ: 
End Sub 

Rem *** PRCCND 



96/161 

WO 2005/029322 PCT/JP2004/013806 



[0130] 

^HjJlffl] 1 2'C?;i£&&;K£^ }-/VL 4 (K) — 1 

Option Explicit 
Kern #DEl 7 Pl'tt 
Ren PUH4N4 

Private »eW08_«%3ie_W^ae_^2W_§%U2&_S«ii As £<23S 
Rem P13BIN4 

Private HeX305«„eS3l5&_8%286«_«ii29G§_&5i2Me As e%23CG 
Rom FUn5C4 

Private CTRlJ?^30e_&*2B*Le%298_STS.JRANSIT10N_FLG As integer 
Ren PUB5Y4 

Private CTRlJ?e%30e_e*28e_^9e_STS_TRANSiTiON_>LC_P As lni«K«r 
Ren Pl'B5B4 

Private CTRL W6K30§ &K28B 8%296 STS TRANS1TI0K.FLG.PP As Integer 
Rem TUB6F4 

Private CTRL. «#*30e_ 6*3 19_«%28«_^%29©_«%02«.N0T_VAL1D_>'LG As Boo Jean 
Rem fcDEFEND 
Rem PUB4B1 

' Private W«*300e_frS310&_e*280e_SS42903_9%2QOe As 
Rem PUB4N3 

Private V3_e%3 \V-9*28®J& > W$_$%W% As Integer 
Rem PUB4N2 

' Private V2_WnQ_9XlQQjS%23Q_Q%QZ$ As ©%23§ 
Rem BDF.FPRY 
Rem PRV2T4 

Private W#X30@_^iej&28G_§*29©_®«O2e.jrk As 89&23G 
Rem PRV7R4 

Private CJRL_We*30G_«29e_INr,J :, LCV As Boolean 
Ken *PUBKU 

Private CKS_NOT_XUrLStrlne As String 

Priva-vc CNS.NOTJCUH. Integer As Integer 

Private CNS_NOT_KUH_BooLcan As Boolean 

Private CNS_N0T_KUiS_Long As Long 

Private CNS_N0T_KUH_Singlc As Single 

Private CN3_N0T_KUH_Doubte Aft Double 

Private CNS_NOTJ?UH_Var iaht As Variant 

Private CN:LN0T_KUH_Currency As Currency 

Private CNS _NDTJSUHJ!y t e As Byte 

Private CN3_f<0T_KUH_D ate As Date 
Rem $PRV2W4 

Rera *PRV2E4 
Rem *PRV4ff4 
ft* \ 826 

Rera IPRV4E4 
Ren tfDEFEND 

Public Sub MainO 
Rem dVECREP Private Sub L4_e3£3ie_§*23e_efc2Oe_e*02e_eX97«O 

B0X_i: 
Rem PRVLC 
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If W83630»_e%3ie_^28e_e^29e_eX02^Si«D = CNS_NnT_KUHJ&23e And _ 
Ren PRVLG 

W3_6 r j63l«_W23^e9i29e.e?e02a = Then 
GoTo B0X_2 
End If 

CoTo B0X_E 

B0X.2- 
Rem TUBIN 

If m3059_^315»_^285e_J^295«_«4200e = UNS_N0T_XUlL_e%23Se Then Go To Box_3 

Ren PRVLC 

<ftl7€ 

Ren PRVLG 

If W9%30«_e%3L9_«%28B_^29d_W02e^k <> CNS_K0T_KUfl_§*23e Then 

G0T0 B03L.4 
End li 

G0T0 BOX_B 

B0X_4: 
Ren PRVLG 

W8St3 0e_e%31«_8%2B9_&fc29G_e%02a_$ua = we%30G_@*31&_@5E8#_e%2&8_89K>2Q_wk 
Rem PRVLG 

W2 e*31^_^28Q_^29»_«^02« = ffe>»3Q3_Stf3l*_eS2Be_e%29«_M02©_wk 
Rem PRVLG 

CTRL VeS3Ce_^%28«_«S29«_SrS_TKANJ>lTlON_FLG = CTRL_I?fl*30@_^28e_e*29e_STS^TRANSITIOK_Fl.G ♦ 1 
GoTo BD3C_E 

B0X_6: 
Ren PRVLG 

If CTRL_W*%3 0»_«Si28e_e?(299_i>TS - TRAhSn IO.^FLG.P 
= CTRL.«W30e_«%2Se_«lfc29e_STS_TRAKSITION_FLG_PP Then 

GoTo B0X.6 
End If 

GoTo BOX 7 

B03UT 
Ren PRVLG 

CTRL_we»3O8_«&3ie^e*280^^2t)6^O2«_NOT_VALID_FLG = True 
CoTo B0X_£ 

B0X_7 : 
Ren PRVLG 

CTRL_jr©%30e_«C29©_IXG_FLG = True 
CoTo B0X_E 

| BOX^E: 
End Sub 

Ren *** PRCEND 
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mm^n 3-?mmzfrz>-<? k^l 3 (k) - i 

Option Explicit 
Rem SDP.FPUB 
Rem PUB4H3 

Private tf^30G_G*3ie.J!%28e_§*298_e3to2G($*26§. fi*278) As Integer 
Rem PUBIN3 

Private m305g_StolSe_«£285e_e*295?_e^200^<e%265e, «S275e) As 8*235? 
Ren PUB5C3 

Private CTRL_m30«_«5b2fie_e%29^STS_TRANSI II ON.FLG As Integer 
Rem PUB5Y3 

Private aKL_»@*30e_W2Se_e%29§_STS_TKANSiTlON_FlG_P As Integer 
Rea PUBBB3 

Private CTRL_»0Hi3O*_W28^_^SZ9&_STS_TRANSJTION_FLG_PP As Integer 
Ren PUB6F3 

Private CTRL_W§%30^lW3L§^28§_e%29e_f?t02&_NOT_VAlID_KLG(§^26^. «%27«) As Boolean 
Rem SDEFEND 
Rem #DEFPKV 
Rem PRV2T3 

Private *^3D^^l«_«%23^e*29«_«602fl^wK(eW6«,«%27e) As Integer 
Rem PRV7R3 

Private CTRL_W^309_e5«29§_LNG_KLG As Boolean 
Rem PURKL" 

Private CNS_N0T_KUH_ Integer As Integer 
Private Gyon as Integer 
Private Rstu as Integer 
Private Lti_Cnt as Integer 
Private Soto. Cnt as Integer 
Private Utijiax as Integer 
Private SoIu_Mua as Integer 
Reia IPRV2W3 

Ren SPRV2E3 
Rem SPRV4W3 

Ren SPRV4E3 
Rem ^DEFEND 
Public Sub MainO 
Rem JJVECREP Private Sub L3_e%3ie_e¥2Se\_eX29*_W2§(> 

Gyou = 0 

Retu = 0 
Rem PRVLG 

If fc*349 < $%35? then 
Rem PRVLG 

UtiJUuc = e*26& 

Rem PRVLG 

Soto_Jto.x = 6*279 
End If 
Rem PRVLG 

If 8X346 > &*35£ then 
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l3t$l^'<?^H3 (K) -2 



Reu PKVLG 

tti.Max = «%27$ 

Keo PRVLG 

Soto.Max - fm& 
End If 
Uti_Cnt - 0 
Soto_Cnt = 0 
Do Until Sot»_Cnt = Soto„ilax - I 

Rem PRVLG 

If 9X349 < <tt353 tlivn 
Gyou = Uti.Cnt 
Retu - Soto.Cnt 
End If 
Rem PRVLG 

If 9*348 > 0*368 then 
Grow = Soto. Cnt 
Retu = Lti_Cht 
End If 

Do Until Uti_Cnt = UtiJAax i 1 
Rem PRVLG 

If ?^308_e^31ft_e*28«.^299.«?«)2«CGycu,RBtu) - CNS_NOT_KUK_Integer Then 

GoTo BOX.* 
End Tf 

GvTo B0X_K 

B0X_2 : 
R«?n PRVLG 

B0X_3: 
Rem PRVLG 

If WW30^_fi*3l9_WU«§_9*2ye.«602§_wk<Gyoo,R«Txi) O C.N3J«>T_KUH_§S238 Then 
GoTo BOX_4 

End ir 

GoTft ROXJ5 

BOX_4: 
Rein PRVLC 

W#%30«_»3i31«_«5528&_W29»_W02e(Gyou. Ketu) = «W3U8_«i3l«_«28e^29^9%02e_wk (Gyou, RettO 
Reai PRVLG 

CTRL_W©%30^«S28«_W29e_STS_TRAKSiriOMJ : lG = CTRL„»^309_e%26^e*29e«STS.TRANSin0W_FLG ♦ I 
CoTo BOX_E 

Ren PRVLG 

I f CTRL Jf«%30«_e%289_§*29«_STS_TRANSITION_FLG_P 
= CTRL_»e%30€LgS2S§^8%29€_STS_TRANSITION_FLG_P? Then 
GoTo BOX^ti 
End If 

GvTv BOX. 7 
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[0134] 

Rem PRVLG 

CTRL_»^30e_e%3tg_e%2S§_^29e_8^02eL-NOT_VAL?D_FL(;(Cy<>*j,Retu) = True 
GoTo 30X_E 

D0X.7: 
Ren PRVLG 

CTRL_lff$X30e_e*29e_rNG_FLG - True 
GoTo BOX E 

Uti.Cnt - L'ti_Cnt + 1 

Rem PRVLG 

If @%343 < 3*356 then 

Gyou = Uti_Cnt 

Rctu " Soto_Cnt 
End if 

Ren PRVLG 

If t#34S > 8X350 then 

Gyou = Sntft_Cnt 

Relu = Uli_C«1. 
End If 

Loup 

Soto_Cnt = Soto_Cnt - 1 
Rem PRVLG 

If e^J4« < then 
Gyou - Uti .Cnt 
Ketu = Soto_Cnt 
End If 
Rem PRVLG 

If G%340 > G*358 then 
Gyou - Soto_Cnt 
Retu = Uti_Cnt 
End :f 
Loop 
Cygu * 0 
Rotu = 0 
Oli.Cnt = 0 
Soto Cnt = 0 
UliJtex - 0 
Soto Max = 0 
End Sub 

Rem *»* PRCEND 
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Option Explicit 
Rem 3DEFPIB 
Reo P11B4N4 

Private m309Jf%3te_eN2Se_&%29«^U2e_5un (^26«, e*27&) As S%23« 
Reo PUB IN 4 

Private *a*30&G_&*3 15^W2B58_«629G«_99>2 009 (9S26G&, ©*275e> As &*2059 
Rem PUB5C4 

Private CTRlJf^30$_e^2»&_e?£9<5_STS_TRANi>ITION._FLC As Integer 
Ren PUB5Y4 

Private CTRL »eX30ft &%28©„e%29e_STS_TRANSITiON_hLO_P As Inteaei 
Ren PIBSB4 

Private CTRLJB@%3 08^8*288 «%29e. ST5 TRANSI T I OK .. FLG_ PP As lJite B er 
Rem PUB6F4 

Private CTRL_l«%30§_eX31^W28§^29»_e36O2e.NOT„VALID_FL6(^%25©. 6*27*) As Boolean 
Rem £ DEFEND 
Rem PUB4B4 

Private W6*300e_^109_^28QO*29(>d_d*2006 (81266. $6276> As e^23@ 
Rem PUB4N3 

Private W3_9%3l9_e»2S«_«629e_e%028 C9X26f. 6%27^> As Integer 
Rem PUB4N2 

Private W2_§S3je_e*28e_«*29e_e3£02e(e5<26&, 8*276) Ax G%23§ 
Rem ttDEFPRV 
Keo PRV2T4 

Private W^30S_^ie_e*2Se_^29ej^2e_vk<e*26«. «?S27i) As 6*239 
Rem PKV7K4 

Priwc CTRL_ff&%30e_e*29&_1NG_FLG As Boolean 
Ren *PUBKU 
Private CNS NOT KUK. String As String 
Private CNS_NOT_KUH_ Integer As Integer 
Private CNS NOT KUH Boolean As Boolean 
Private CNS_N0T_KUH_Ung As Long 
Private CXSJf0T_KUH_ Single As Single 
Private GNS_NOT_KUIl_Double As Double 
Private CNS_N0T_KUH_Va riant As Variant 
Private CNSJSDT_KUH_Currency As Currency 
Private CfB_NOT_XUH_Bytc As Byte 
Private CNS_NOT_KUi_Date As Date 
Private Gyou as Integer 
Private Retu as Integer 
Private Uti_Cnt as Integer 
Private 5oto_Cnt as Integer 
Private Uti.Max as Integer 
Private SotuJJax as Integer 
Rem SPRV2V4 
§*172© 
Rc» SPRV2E4 
Ren $PRV4*4 
6%182« 
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^Ml3t'^^5^ (K) -2 

Rem $PRV4E4 
Rem ^DEFEND 
| Public Sub HainO 

Rem fcVECREP Private Sub L4J?*3LfL8?&Be_e%29fl_ft*02& 0 

Oyou = 0 

Rctu " 0 
Ren PRVLG 

I Tf 6*348 < then 

Rem PKVLG 

Ut.i.Hax = 8%26« 

Rvo PRVLG 

Soto_Nax = 

End If 
Rem PRVTC 

If «fc34£ > 6*358 then 
Rem PRVLG 

Hi .Max = «X27€ 

Rem PRVLG 

Soto. Max - 656263 
End [f 
I'ti Cnt = 0 
Soto_Cnt - 0 
Do Until Soto^Cnt - Soto.Max + I 
Uti.Cnt = 0 
Rem PRVLG 

If 8*34* < 0*353 then 
Gyou = Uti Cut 
Retu = Soto_Cnt 
End If 
Rea PRVLG 

If 6*348 > etf3S<? thon 
Gyou = Soto_Cnt 
Retu = Uti_Cnt 
End If 

Do Until Uti.Cnt - Uti.Max + 1 
B0X_L: 
Ren PRVLG 

If «&9i30»_e«3Le_e%2S&_©%29e_e?CO2»_5ucD (Gyou, Retu) = CNSJJ0T_)UJO*23e An d _ 
Ren PRVLG 

■f3,efc3Le_@*28©_9*29e_«G02e (Oyou. Retu) =6X07© Then 
GoTo 80X_2 
End If 

GoTo B0X_E 

B0X_2 : 
Ren RUBIN 

If ff^X3059_«%3lce_e»2B5«_^2959_e3i200»(Gyou.Retu) = CNS_N0T_KUH_&fc235G Then Go To Box_3 
Rem PRVLG 
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s gjSjjgjj a-cfcu^na^? h^L4 (k) - '6 

BUX_3: 
Rcd PRVLG 

[t WW3^_e%3ie_^42Se_&X29^e5(02e_wk<Gyou, Retu) O OfS_N0T_KUH_3*23e Then 

Goto B0X_4 
End If 

Goto BOX_6 

Rem PRVLG 
Reqj PRVLG 

ff2_«%3l©_«¥28e_^29»_e%028(Gyou. Retu) - m30e_e^l9_e*28#_§%29$_eSW2$_wk (Gyou. Retu) 
Rem PRVLG 

CTRL_V^r*30e_e%2Si_^29e_SlS - TSANSITIOH_JLG = CTRLJ^30*_W2$&_e%29«^STS^TRARSITION_FLG » J 
GftTo R0X_K 

BOX 5: 
Rem PRVLG 

If CTRL. W€S30{*^23»_Wfi29^_STS_TRAWSiTLON_KLG_P 
= CTRL^W^30&_e9i2ft8_95629*_STS_TRANSTriON.FLG„PP Then 

GoTo BOX 6 
End If 

GoTo BOX 7 

B0X_6: 
Rem PRVLG 

CTRL_*^%30e_W3L#_<W28fi_^29«_W02^_KOT_VALID_PLG (Gyou. Retu) ~ True 
GoTo BOX.E 

D0X_7: 
Ren PRVLG 

CTRL_1fe*3O0_e%298_ING_FLfr = True 
j GoTo BOX E 

BOXJ: 

Uti_Cnt - Uti Cnt + 1 

Rem PRVLG 

If ftX34« < 6*35@ then 

Gyou - Uti_Cnt 

Retu - Soto Cnt 
End If 

Rein PRVLG 

If e*34« > G*35£ then 

Gyou = Soto_Cnl 

Rotu = lti_Cnt 
End If 

Loop 

j Soto.Cnt - Soto Cnt + 1 
Rem PRVLG 

rf 6*348 < «%35§ then 
Gyou = Ut i_Cnt 
Retu = Soto_Cnt 
End If 
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fcjSfoflOl 3 ^j^i6^ (K) -4 

Re* PRVLC 

If 3%34© > £<3SS then 
Gyou ~ Soto_Cnt 
Retu = UtL.Cnt 
End Tf 
Loop 
Gyou = 0 
Ketu = 0 
Uti.Cnt " 0 
Solo.Cnt = 0 
UtiJIax = 0 
SoloJJax = 0 
End Sub 

Rem *** PRCEND 
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[Option Explicit 
Uea fcDP.FPUB 
iHen PUB4N2 

Private ff^30e,«*3ie_««28i_e%298. 8%02e (6S26S, 9S27S) As §*239 
lRea PUBIN2 

Private W^2OSe_&X315e_e%235e_8?i2950_«62OO@ As e%235S 
|Retn PUB5C2 

Private CTRL_Te3i30^e%28^_^i20e_STS_TRAKSIT10N FLG As Integer 
|Ren PUB5Y2 

Private CTRL.^eXSOeL^S^^^-STS.TRANSlTTONJT-G.P As Integer 
|Rea PUB6B2 

Private CTRL_*^0«_€*2Se_e*293_STS_TRANSITI0rUn.G_PP As Tnteeer 
|Rcm PUB6F2 

Private CTRL_ff«%30«_Wje_e*28i_^29e_e^bO2e_N0T^VALID FLG tOtteS, GS27&) As Boolean 

|Rem d DEPEND 
Rem ^DEFPRV 
|Rem PRV2T2 

Private ^30e^e*3je_9«28«_«X29e_eii02e_wk(4«26fl.e%27e) As 6U23& 
iRcm PRV7R2 

Private CTRU_W^30&_e3£29§_ING_FLG A? Boolean 
|Rcm PUBKU 
Private CNS_N0T_RUIL^23« As 9*23§ 
Private Gyou as Integer 
Private Rwtu as Integer 
Private Uti_Cnt as Integer 
Privatw Scto_Cnt as Integer 
Private Utijtfax as Integer 
Private SotoJIax as Integer 
I Rem SPRV2W2 
9%1526 
Ren $PRV2E2 
Rem IPRV4W2 

Rem SPRV4E2 
iRetfl j*DEPENf> 

Public Sub UainO 
|Rem rtVECREP Private Sub L2_3X3l§_e*2S9_.e*2W^ffi02GO 
Gyou = 0 
RctU ~ 0 
Ren PKVLG 

If 8*346 < 3*350 then 
Keu PKVLG 

Uti.Hox " %*2W 

Rem PKVLG 

SotoJJox - GK276 
End If 
Rem PRVLC 

If «%349 > 9*358 then 
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#Mm\ 1 3 •caafesns^g f^l 2 ck> -2 



I Ren PRVLG 

uuju* = e*2?e 

[Hea PRVLG 

Soto_Max = e%26« 
End If 
UtiJTnt - 0 
Soto_Cnt = 0 
Do Until Soto Cnl = Solo.Max * 1 
Uti_Cnt = 0 
iRem PRVLG 

It W-Jfc < 95635$ then 
Gyou - Ut1_Cnt 
Retu = Soto_Cnt 
End If 
litem PRVLG 

If SX348 > 8*3 5§ then 
Gyou = Soto_Cnt 
Rctu - Uti.Cnt 
fcnd If 

Dc Until Uti.Cnt - UtiJIaa + L 
B0X_W 
LRem PRVLG 

If tfTOO$_&%3ie_&3t28e_§H^§_«%a2e (Gyou, Retu) = CNS^NOT.KTJICeteSf Then 

GoTo B0X_2 
End If 

GoTo B0X_E 

B0X_2: 

1 ' NOP 
B0X_3- 
Rem PRYLG 

If W«%309_e%319_^2a«_^ye_e)6O2e_wk (Gyou, Retu) O CNS_NOT_XUH_«%23© Then 

GoTo ROX.4 
End If 

GoTo BOX_5 

B0X_4: 
Rea PRVLG 

W«%30e_»%31«_«fi289_f%2y9_95&029(Gyou.Retu) * f«30§_«%3I@_W28e_e*29«_9«O2e (Gyou. Retu) 
Ren PRVLC 

CTRL_»eX30«^2af_^2y^TS^TRANSITION_FLG = CTRL.»Kb30*^2S©_e%298_STS_TRAKSlT10N_FLC ♦ I 
GoTo B0X_E 

Rem PRVLG 

if CTRL_m30§_§%2ee,9?i29e_STS_TRANSITIOW_FLG_P 
= GTRLJie*30<LS*2B&_e&29e_STS_TRA>JSITION FLG PP Then 
GuTo BOX_G 
End If 

GoTo BOX. 7 

B0X.6: 
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|Rcd prvlg 

CTRL_we<30e_«3ie_e%2S&_@X29^«02e_KOT_VALID_FlC (Gyou, Retu) 
Goto B0X_E 

Ren PRVLG 

CTRL_W&3i306_e«29«_lKG.FLG = True 
G0T0 B0X_E 

B0X_E: 

Uti.Cnt = L'tl.Cnt * I 
Rem PRVLG 

Jf 8%34G < 6*353 then 
Gyou - L'ti_Cnt 
Retu = Soto_Cnt 
End If 

Rem PRVLG 

If > 8X359 then 

Gyou = Soto_Cnt 
Retu = Uti Cnt 
End If 

Loop 

Soto_Cnt = Soto^Cnt - l 
Ren PRVLG 

If < then 

Gyou = Utf_Cnt 
Ketu = tioto_Cnt 
End If 
Rem PRVLG 

Tf «*34S > 6*368 then 
Gyou = Soto_Lnt 
Retu ~ Uti_Cnt 
End If 
Loop 
Gyou - 0 
Retu = 0 
Uli^Cjil = 0 
Soto_Cnt = 0 
imjlax = 0 
Soto_Majt = 0 
End Sub 

Hem *** PRCEND 



= True 
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Option Explicit 
Rem #DEFF'UD 
Rem PUB4N3 

Private W^30G.^l9_ W26e_e*29e_«*0 2$ <9*2 63. *%27§) As Integer 
Rem PUBIK3 

Private *§*305©_^3l5e_»2B5eL^9S«_e*200&(«*26S§ J 6*2758) As G%235S 
Ren PUB5C3 

Private CTRL_m30§_e%2Be.eX2^STS^TRANSlTI0N_FLG As Integer 
Rem PUB5Y3 

Private CTRU»«30^_6^2B&_e%298_SVS_TKA.NSJTiON_KLG_P As Integer 
Rem PUB5B3 

Private CTRL_»«X30©_»*289_e%29^STS_TRANSITION_FLG_PP As integer 
Rem PUB6F3 

Private CTia_VW3Q8^3l@_^8e_W29§_»^0_NOT_VALID_FLGC«2»>@. 6*279) As Boolean 
Ren *I>EFEM> 
Ren 3DEKPRV 
Rem PRV2T3 

Private (?»%3<»_W31»_©5&28e_eH29e_e%02»_vk(W269.^27e) As Integer 
Rem PRV7D3 

Private CTRL_*e*308J»£9«_ING_FLG As Boo Lean 
Ren PUBKU 

Private CNS_N0T_KUH_InteRer As Intener 

Private Gyou as Integer 

Private Retu as Integer 

Private Wti_Cnt as Integer 

Private Soto Cnt qs Integer 

Private Uti„Max as Integer 

Private Solo_Max as Integer 
Rem SPRV2W3 
SMB28 

Ren $PRV2E3 ' 
Ren SPRV4V3 

Ren SPRV4E3 
Ren ttDEFEND 

Public Sub MainO 
Rem tfVECREP Private Sub l.3^X31»_«%28fl_^29fi_ftX02fl() 

Gyou = 0 

Retu = 0 
Rem PRVLG 

If 6*346 < e^Se then 
Rem PRVLG 

Utijfax = i%266 

Reo PRVLG 

SotoJIax - G*27» 
End If 

Rem PRVLG 

If 9*349 > 9%35& then 
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Rem PRVLG 

Rem mix 

SotoJ4ax = 8*268 
End If 
Uti.Cnt = O 
Soto_Cnt ~ 0 
Do Until Soto_Cnt = SotoJ4ax I 
Utj_Cnt = 0 
Rom PRVLG 

If 3*346 < then 
Cyou = Uli_Cul 
Retu = Soto^Cnt End If 
Ren PRVLG 

If &*34« > then 
Gyou = Soto_Cnt 
Retu - Uti_Cnt End Ff 
Do Until Uti_Cnt = Uti_Max + 1 
B0X_i: 
Rem PRVLG 

If ve*30e_^3ie_W28e_e*29e_e*Q2€KGyou. Reiu) = CNS_KGTJOJH_Inicgcr Then 
GoTo B0X_2 
End If 

GoTo B0X_E 

B0X.2: 
Ren PRVLG 

BOX 3: 
Ren PRV1G 

If *S%30e^3ie_eX2Sej?*2W_33K>26_wk<Gyou, Ketu> <> CNS_NaT_KlH_Integer 
Then GoTo B0X_4 
End If 
GoTo BOX_5 
BOX 4: 
Ren PRVLG 

1f8%30©_»31«_«428«_B%29©_«%02§(Gyou, Retu) = «^30B_e%Uie_«%28e_&%2^e5fi02e_vk<Gyou, Ret") 
Ren PRVLG 

CTRL ff^Oe_e*289_SS29«_STS_TRANSinON_FLG = CTRLJ^08_G*28e_Wte9«_STS_TRANSITIOfJ_FLG 4 1 
GoTo BOX.E 

R«d PRVLG 

1 f CTRL_W«63DS_e%288_«t29e_STS_TElAMSITI0N_FLG_P 
* CTRL_ma0§_ft1fc288_^29e_STS_TRAMSTTT0N.PLG_PP Then GoTo B0X_6 End If GoTo BOX 7 

BOX_6: 
Rem PRVLG 

CTRL_W^30e_W3l9.«%28e.Wi!ye_9%029_N0T_VALlD_FlG(Gyou, Retu) - True 
GoTo B0X_E 

BOX 7: 
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Ren PRVLC 

CTRL_*»X30e_«5t29^1^_KUi * True GoTo \WXJL 
D0X_E: 

Uli.Cnt = ULi_Cnt * 1 
lea PRVLG 

If «%340 < 6*358 then 
Gyou = Uti_Cht 
Retu = Soto.Cnt End If 
tea PRVLG 

If g%346 > e*35G then 
Gyou = Soto_Cnt 
Retu - Uti_Cnt End If 

Loop 

Soto_Cnt - Soto.Cnt + 1 
Zem PRVLG 

If 8*343 < 6*350 then 
Gyou = Uti_Cnt 
Retu = Soto_Cnt Rnd Tf 
Rem PRVLG 

If SX34* > S*35§ then 
Gyou = Sulo.Cul 
Retu = Uti_Cnt End If 
Loop 
Gyou = 0 
Retu - 0 
Uti.Cnt = 0 
Soto Cm - 0 
Uti Jdax = n 
Soto Max = 0 
End Sub 
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Option Explicit 
Rem «DEFPUB 
Rem PUB4N4 

Private *%%3Q9J&Zl%„WmM29Q-%%QM(W26Q. «J£27?) As «%238 
Rem PUBIM4 

Privata *^Q58_«3l5«_W285«_«(29Ge_^200©(«f26Ce. 0*2706) As e*235fc 
Ren PUB5C4 

Private CTKLJ?^308_9*28&_^98_STS_TRANSITIOiLFLC As Integer 
Ren PLBBY4 

Private CTRL-m30@_l**Z8e_«62Se_STS_TRANSIT10K_KL(;_P As Inteser 
em PUB5B4 

Private CTRL.«^308 BX288 «S29S ST3 TRANSITION. FLG.PP As li.leser 
Rem PUB6F4 

Private CTRL_««%30«_eX318_eS2S«_e%29»_«?02*_NOT_VALID_FLG(^%25©. 6*2711) As Boolean 
Ren) 2 DEFEND 
Re-u PUB4B4 

Private »$!<300t_fi%310d_e?S280e_#)4290«^2O0@(^t26e, 09627^) As 3£23@ 
Reo PUB4N3 

Private W3_§?t3 l«_85i28«_95£29e>$%02e (8%26d, d%27©> As Integer 
Rem PUB4N2 

Private *2_^3ie_efc2a$_eS29§_eX02fc(Gg26& i §#27fc) As 6*23$ 
Rem ttDEFPRV 
Ren PRV2T4 

Private S^30^_^3 ie_eX28§_3%29@_e%02e_.*k <&*2&G, 9%27^ As 6X23® 
Hea PRV7R4 

Private CTRL_WG*30<Mft29e_ING_FLG As Boolean 
Rea *PUBKU 
Private ChS_NOT_KUH_String As String 
Private CNS_NOT_KU!LInteger As Integer 
Private CNS NOT KUft. Boolean As Boolean 
Private CNS_NOT_KUfl_Lons As Long 
Private CNS_N0T_KUH Single As Single 
Private CNS_NOT_KUILD«uble As Double 
Private CNS_N0T_KUH_Va riant As Variant 
Private CNS_NOTJ£UH_Currency As Currency 
Private CN3J10T_KUH_By tc As Byte 
Private CNSJiOTJUJhLDate As Date 
Private Gyou as Integer 
Private Retu as Integer 
Private Uti_Cht as Integer 
Private Soto_Cnt as Integer 
Private Uti_Max as Integer 
Private Sotojtax as Integer 
Rem SPRV21M 
«1729 
Rem SPRV2E4 
Kern jm4»4 
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Ren JPRV1E1 
Rem JJDEFEND 
Public Sub MainO 
Rem jlVECREP Private Sub L4_6toL§_e%28?_e%Z9e_e«02§0 
Gyou = 0 
Retu - 0 
Ren PRVLC 

If < #1359 then 

Ken PRVLC 

Utijdaa = 6*269 
Rea PRVLC 

5oto_Max = f*27» 
End If 
Rem PRVLG 

If 0*34$ > S%3B6 then 
PRVLG 

UtUtox = €*27& 
Rem PRVLG 

Soto_Vax = ©£26G 
End Li 
Uti_Cnt = 0 
Soto_C/il = 0 
Do Until Soto.Cnt = Soto.Max ♦ 1 
Uti Cnt - 0 
ien PRVLG 

If S%34S < 6*359 then 
Gyou = Uti_Cnt 
Relu = 3oto_Cnt 
End If 
Ren PRVLG 

If W34S > 9%3S« then 
Gyou - Soto_Cnt 
Retu = Uti_Cnt 
End [f 

Do L'ntil Utj_Cnt = L'ti Jinx + \ 
BOX l: 
Rein PRVLG 

If ve>30»_W3l«.W28e_Wt29«_<W02&_wk(Gyou,R«tu> = CNS_NOT_XUH_^23e And _ 
Reo PRVLG 

W3_9%319_9S2Sg_&*29e_G*02$<Gvou. Retu) = «O70 Then 
GoTo BOX_2 
End If 

Go To BOX_E 

B0X_2: 
Ren PUB IN 

If RWW05e_e5S3l5^_^2&5«_^2958^200«(Gyou. Helu) = CNS_NOT_KUIt_e*235« Then Go To Box_3 
Rem PRVLG 

m3O&_«9Wl<L«i2Se_&&296_G%O20_wfc (Gyou, Relu) = W9*305S_6%3l5«_^2o5«_e%2y58_8X200«(Gyou. Retu) 
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|Kem PRVLG 

If W9%aoe_W3ie_6W8e_e%2fl&_&X02e_»kCGyou. Rctu) <> CNS_N0TJWH_e%233 Then 

GoTo B0X_4 
End If 
GoTo 
B0X_4 : 
iRtitD PRVLG 

VT09»Oe_€S6aie.»t28e_e^2O^_eXO2^CGyoi], Retu) = W^0e_^ne_^8O%29O*02«_vk(Cymi. RetuO 
I Ren PRVLG 

CTRL_»§^30?_©^28«_§%2^§_STS_TRAliSITI0N_FLG = CTliL_«e5i30e_eK2S8_«S29©_STS_TRANSITION_FLG - 
GoTo B0X_E 

D0X_5 : 
I Ren PRVLG 

If CTRL^e^30^e%28$_^29&„STS^TRANSITI0N_FLG_r 
= aRL„We%30©_e%28e_^298_STS_TRANSITI0N_FLG_PP Than 
Go To B0X_6 
End If 

GoTo BGX__7 

B0X_6: 
I Rem TRVLG 

CTRL_W83i30ft_«563l^_W28ft_e«29e_e%02e_N0T_VALID_FLGlGyou, Retu) - True 
GoTo D0X_E 

BOXJ?; 
I Rem PRVLG 

CTRU?e^0«_^2&^_lMC_FLG = True 
GoTo B0X_E 

BOX E: 

Uti_Cnt = Lti.Cnt ♦ 1 



Rem PRVLG 



If g*34Q < then 
Gyou - Uti_Cnt 
Retu = SotoJJnt 

End If 



Rem PRVLG 



If S%343 > e*368 then 
Gyou - Soto_Cnt 
Retu = Uti_Cnt 
End If 

Loop 

5oto_Cnt = Soto_Cnt * 1 
!Rea PRVLG 

If 3*34* < then 
Gyou - Utl.Cnt 
Retu = Soto_Cnt 
End If 
ilReo PRVLG 

If 8X34P > G*359 then 
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Cyou - Soto_Cnt 
Retu = Uti_Cnt 
End If 
! Loop 
Gyou - 0 
Rem = 0 
Ut1_Cnt - 0 
Sulo_Cnt = 0 
Uti.Wnx - 0 
Solo Max = 0 
End Sub 

Rem *** PRCEND 
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•^mR'Jl 4T*&£$flZ,^2 h^L3 <K) -1 



Option Explicit 
Rem StDEFPUB 
Rem PUD4N3 

Private Ve%30§_^31§_©*28e_e*298_eS&29C#£26Q, 9*278) As Inteiw 
Rem PUD1N3 

Private W8S305* _^315e_G%285§_e*295&_e3620Oe<e*26Se, $62756) As 8*235$ 
Rem PUD5C3 

Private CTRL *8*308 8K2S8 §*298 STS TRANSITION FLG As Integer 
Reo PUBSY3 

Private CTRL_m308_«S2«e_«%29fl_STS_TRi\KSITI0N_FLG_P As Integer 
Ken PUB&B3 

Private CTRl._»e<30&_»2Se_^2n§_STS_TRAKSTTlON_FlX.PP As Integer 
Ren PUBGF3 

Private CTR1_W6«0e^««3l^^2S§_§9^9e^02ft,N0T^VALID_PLC<fi%26e, 6*278) As Boolean 
Run 8DEFEND 
en> SDtFPRV 
em PRV2T3 

Private Wt%3D&_9%3ie_e*2ft6_eS29«_«%fl2@_wke*07e(«!62fi^ e%278) Ax Integer 
Red PRV7R3 

Private CTRL_m30G_« , 329«_lNG_FLG As Boolean 
Rem PUBKU 

Private CNS_NOT_KUft_ Integer As Integer 
Private Gyou as Inteoer 
Private Retu as Integer 
Private l'ti_Cnt as Integer 
Private Soto_Cnt as Integer 
Private llti_Max as Integer 
Private Soto_Max as Integer 
Ren *PRV2»3 
8X162* 
Rca SPRV2E3 
Rem $PRV4IT3 
8*1658 
Rem SPRV4E3 
Ren ^DEFEND 

Public Sub MainO 
Rem dVECREP Private Sub L3 8*31$ GS2S9 8*298.8*0280 
Gyou - 0 
Retu - 0 
Rem PRVLG 

If 8*348 < 8*35© then 
Rem PRVLC 

Uti^Max - ft*268 

Ret PRVLG 

Soto.Wax = 8&276 
End If 
Rem PRVLG 

If 8*348 > 8*358 then 
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3£**&fl"Jl 4 h/W-L 3 (K) -2 



en PRVLG 

UtiJIax = $$27$ 
tea PRVLG 

SotoJilax = e*2t>e 
End If 
Cli.Cut = 0 
Soto_Cnt = 0 
Do Until Soto_Cnl - SaloJIux + I 
Uti.Cnt = 0 

Ren PRVLG 

If «%34« < 6*356 then 
Cyou = Uti.Cnt 
Retu = Soto_Cnt 
End If 
Kern PRVLG 

]f «%34§ > then 
Gyou - Soto_Cnt 
Rctu ~ Uti_Cnt 
End If 

Dn Until Uti.Cnt " lki_Max + I 
B0X.1 : 
Rem PRVLG 

If m308_eX318^m_^%29e.«*Oii«(Gycu. Retu) - CNS_N0T_KUH_Integ*r Then 

froTo B0X_2 
End If 

G«To B0X_E 

BOX 2: 
en PRVLG 

exiee 

BOX.3: 
Rem PUBL3F 

If we%309>e%3ie_$%23e.e?i29«_«S6O2^ke*0?e (Cyou, Retu) = 1 Then GoTo B0X_4 
Goto B0X_5 

BOX_4: 
Ren MJEL3F 

Ef we«08 - e%3ie_#1i28§_e)&29eL^02@_trkfi%07e(Gyoij > Rctu) - 1 
Then fe%30e_^3l»_©%28«_e<29^»%02e (Gyou, Retu) = «%07« 

Rem PRVLG 

CTRL_ff©%30«_e!{28^e»25«_STS_TRAK5IT10N_FLG = CTRL^WTO0e_eS2t>9.W298J>TS_TRANSITI0N_FLG + 1 
Go To BOX.? 

B0X_5: 
Rem PRVLC 

If CTRL_W^30e_e*28«_W29e_STS_TRANSiriWLFLG_P 
= CTRL_W^30^_$t28@_e%29^_SI S_TRANSI TI C1K_FLG_PP Then 

GoTo BOX 6 
End If 

GoTo BOX. 7 

B0X_6: 
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*tt«RiJl 4-(»i£«$;ftS'<* fA-L 3 (K) - 3 



Ren PRVLG 

CTRL_Jf^O@^3t«_eH2S^<9Si20€_«02«_NOT_VAl.in.FI.C<Cyoii,1?eti3> = True 
GoTo BOX_E 

BCtt_7: 
Rem PRVLG 

CTRL_»^%30«_9%29^_IN&_FLG = True 

GoTo BOX E 

BUX_E : 

Uti.Cnt " Uti_Cni - 1 
Ren PRVLG 

If 6*340 < then 
Gyou = Uti_Cut 
Re tu ~ Soto_Cnt 
End It 
Rem PRVLG 

If »%34» > ©*35« then 

Gyou = Soto_Cnt 

Helu = tlLijCnl 
End If 

Loop 

Si>to_Cnt = Sntft_Cnt *■ 1 
Ren PRVLG 

If 3*346 < &%35& then 
Gyou - Uti Cnt 
Rent = 5oto_Cnt 
End If 
Rem PRVLG 

If > then 

Gyou s Soto_Cnt 
Retu - Uti_Cot 
End If 
Loop 
Uyou - 0 
Retu - 0 
Uti.Cnt = 0 
Sota.Cnt - 0 
Uti.Uax = 0 
Soto_Max - 0 
End Sub 
Ren *** PRCEND 
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£831RU 1 4 -e^i$?x^^ hM4 (K) -l 



(Option Expl icit 
Rem 8DEFPUB 
ken PUB4N4 

Private m30e\.f&3lG_G%28e_eK29e eX02e_5ua(G%268, 8*273) A* «%238 
iRca PUB IN J 

Private m3056_e%3l Sejft286«_eS295i 6X2008 («#2 6 5 f», #42750) As GS235B 
iRem PUB5C4 

Private CTRLJ^30§_e*28e_e<29S_STS_TRANSITI0N FLG As Integer 
IRem PL-B5T4 

Private CTRL_W30e_Ki28©_e5S29e_STS.TRANSITION^FLG_P As Integer 
|Rcb PUB5B4 

Private CTRL_ffe*30e_m8«_e9C20e_STS_TRANSITTON_FLG_P? As Intecer 
hem PUB6F4 

Private CTRL.W«%30^X3ie_^2Bft„89429e_e«O2e.N0T VALrD_RLG<#%26©, 0*278) As Boolean 
iReto ^DEFEND 
| Rem PCB4B4 

Private KG*SOOe_&fc310e Q%2ZOWl290&_e%WW(&XW, ^276) As 0X230 
I Ren PUB4N3 

Private W3_e*3l6_0*28e_0*29e 0fcO20««26e. 0*270} As Integer 
|Reta PUB4N2 

Private f 2 J^lGJ«23$_ 0*290 0KO2<* (0*2 Gfc 0*270) As 0*230 
Private Gyou as Integer 
Private Rctu as Integer 
Private Uti.Cnt as Integer 
Private Soto_Cnt as Integer 
Private UtiJlax as Integer 
Private SotoJtox 03 Integer 
[Rem *DfcrW 
Uem PRV2T4 

Private W«%30e_^31§_e3628e_«298_«t02e^k(e<26fi. ft*270) As 0*239 
IRem PRV7R4 

Private CTRL_W0*3Q0_0*290_ING_FLr, As Boolean 
|Re» *PUBKU 
Privave CNS_NOT_KUH_String As String 
Private CKS_N0T_KUH_ Integer As Integer 
Private CNS_NOT_KUhLBoolean As Boolean 
PVivate CKS_NOT.KUW.Long As Long 
Private CNS_N0T_KUh\.S ingle As Single 
Private CNS_N0T KUH Double As DoubLe 
Private CNS_NOT_KUK_. Variant As Variant 
Private CMS_N0T_KUH Currency As Currency 
Private CNS_N0T_KCH_ By t e As Byte 
Private CtfS_.N0T_KlH_Date As Date 
|R«_ SPRV2W4 
0*1720 
[Ren SPRV2E4 
Ren SPRV4W4 
@%1820 
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Ren IPKV4E4 
Ren bDEPEND 

PjUHc Sub HainO 
Ren fcVECRRP Private Sub L4_e%31$_e*28fc e%29*-e*O2§_05«>79O 

Gyou = 0 

Retu = 0 
Ren PRVLG 

If e*34§ < then 
Rem PRVLG 

Cti_Max = £4269 

Ren PRVLG 

Soto.Uax = W27§ 
End If 
Rem TRVLG 

If 6X348 > 6*359 then 
Ren PRVLG 

Uti.Max - i%278 

Ken PRVLG 

Sotojtax - 8X268 

End If 
Uti.Cnt - 0 
5yto_Cnr ■ 0 
Do Until Soto.Cnt = Soto.Max + I 
UU_Cut = 0 
Ren PRVLG 

if e*j4e < e%35e then 

Cyou " Uti_Cnt 
Retu = Soto_Cnt 
Fnd If 
Run PRVLG 

If 6*348 > then 
Gyou = Soto_Cnt 
Retu - 0x-i_Cnt 
End If 

D« Until Uti_Cnt = Utijlax - 1 
Rera PRVLG 

U m30^_W3L§_§9i2W_««29^_«%02Q-Siiai<Gyoii,Retu) = CNS_N0T^X'JH_&X23fl And _ 
Rem PRVLG 

WJ_«63l«_W28§_eK29e_«i02i (Cyou, Retu) - &*07t Then 

GoTo BOX 2 
End If 

GoTo B0X_E 

B05L.2: 
Ren PUBIN 

If WOT30C§_e^il5«L«%285e^29S»„«t200e( Gyou, Retu) - CNS_NOT_KUH_e*235G Then Go To Box_3 
Rea PRVLG 
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|Rc« PRVLG 

If tf63S30»_e%3te_§X28^e^29e_eX02e.wk(Cyou, Retu) <> aJ.S_NOT_KUHJ3ft23§ Then 

CoTo B0X_4 
End if 

Goto B0X_5 

B0X_4 : 
| Ren PRVLG 

ff«%303_§%3 l§_99i^8e_«29©_e%02«_Sunj (Gyou, Retu) = we*3Qe_fr3^e_#£8G Jm298_gfc02§_wli (Gyou. Retu) 
I Rem PRVLG 

V2_W3l«_»%289_e%29«_e?i02«(Gyou. Retu) = m308_e*3ie_e&28e_G%29§_e?4C>2e_wk (Gyou, Retu) 
I Rem PRVLG 

CTRL_*e%30®_9?&289_W29^TS_TRANSlTIC>^KU; = CTRL_weS3D«_©628§_^298J5TS_TRANSmOtCFlX + 1 
GoTo BOX.F. 

BOX.S: 
|Rem PRVLG 

If CTRL (r©%30«_eX289_8S29«_STS_lRANS]TION_FLG_P 
= CTRL_we%30«_^28§_e«20^STS_TRANSlTION_FLG_PP Then 
GoTo BOX 6 
End If 

GoTo BOX 7 

BUX_6: 
|Rcm PRVLG 

CTRL^ff«%30e_eH3l©_«t28e_i%29e_«)U)2e_fmT.VALln_FLGCGyou f Retu) - True 
GoTo B0X.E 

BOX. 7: 
|Rem PRVLG 

CTRL_We%30e_9%29©^ING_FLC = True 

GoTo B0X.E 

BUX_G: 

Uti_Cnt Uti.Cnt + 1 



Re* PRVLG 



Tf e*34fc < Gfc35§ then 
Gyou - Uti.Cnt 
Retu - Soto Cut 

End It 



Rem PRVLG 



If *&J4« > 0*356 then 
Gyou - Soto_Cnt 
Retu = Uti^Cnt 
End If 

Loop 

Soto_Cnt - Soto.Cnt + 1 
jRem PRVLG 

If e\34ft < 0*360 then 
Gyou = Uti_Cnt 
Retu = Soto_Cnt 
End If 
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^^g'jl fZlSE&ZilZ'** h/H4 (K) -4 
Rea PRVLG 

If 6*34$ > efc35« then 
Gyou - Soto_Cnt 
Retu - Uti_Cnt 
End If 
Loop 
Cyou = 0 
Reiu = U 
Uti_Cnt " 0 
Soto_Cnt = 0 
Uti_Ua* - 0 
SoLoJdaji - 0 
End Sub 

K«m *** PEUEND 
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|J 1 9-C£3t£n<5^ Yj\<> I 2 iAJjfemft) - 1 



lOpt ioci Explicit 
Rem SDEFPUB 
|Rc£D PUB4N2 

Private CTR_G*3 ie_*X283_tt(29e_12_END As Boolean 
I Rem PUB4N2 

Private CTR.SVJ 1 e_^«S_^299_l 2_CNT As Integer 
I Rem 

Private CTR_«3ie.e*28e_e%29&_J2JRR As Boolean 
\?.em PUB4N2 

Private ClR_WJl©_«l28e_eH2^.I2_EOF As Boolean 
I Ren PUBIN2 

Private m305tU^15«_eS285&_9%295e_e*2008 As «jft235G 
iRen PIIBRC2 

Private CTRL_'iT&5WO«_«5628«_§*298_STS_TRAJ15l7JON_FLG As Integer 
I Rem PUB5Y2 

Private CTRL_Sre%3(K!_^28e_©X29»_STS_TRAH51T10f(_FLG.P As Integer 
I Ren PUB5B2 

Private CTRL_K^30e_^2Se_^9fJ_STS_TRAWS]T10N_FLG_PP As Integer 
I Rem iSAKrARA 
Rem I2PXi*ARA 
litem PUB6F2 

Private CTRL_W«X30e_eS31©_S%28«_e^2&e_9%02@_KOT_VALID_FLG As Boolean 
I Ren 3D E FEND 
Rem 4DBFPRY 
|r C d PRV7R2 

Private CTRL_Mfl630<Lft*2&6_ING_FLG As Boolean 
[Rem $PRV2T2 
«%L52d 
|Rep IPRV2E2 
|Rea SPRV4W2 

|Rcm IPRV4E2 
|Kem ^DEFEND 

Public Sub MainO 
I Rem dVECREP Private Sub 12_e*3lG_e%28@_e*29eLe*Cl 2 9.9X0780 

BOX.i: 
I Rem E2PKYKUU 

If gfc508 <> <ft07f) Then Exit Sub 
I Rem I2AKVKUU 

If 6*50* <> fc*07S Then Exit Sub 
BOX_2: 
iRcm PRVLC 

6*1 G« 
fRem PRVLG 

CTR_«%31«_W25©_e%29»_12_EN0 = raise 
|Re» PRVLG 

CTR_«*3t«_e%2BiJJtt29«_i2_.ERR = False 
B0X_3 : 
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Rem PRVLG 

If CTR_e*3t§_e*28&_e*5£9g_I2^END = False Then 

G0T0 B0X_1 
end Jf 

GoTo ROX_5 

BUX_4- 
Rcm PRVLG 
] 0*1530 
Rem PRVLG 

CTR_e*3l&_©%2Be_e*29e^l2._END = True 
Rem PRVLG 

CTRL ?e*30e_&fc28e_e*29e_STS_TRANSm0N_FLG - CTRL_»eH30^^8e_Wi!98_STS_TRANSniON.FLG + 1 
GoTo B0X_E 

BOX 5: 
Rem PRVLG 

If CTR_e*3ie_8%28e_e*290_J2_END s False Then 

Go To B0X_6 
End If 

Colo B0X_7 

BOX 6: 
Rem PRVLG 

CTR_e%31§ 8X286 6*296 I2_ERR - True 
Rem PRVLG 

CTRL_l§M08..e%31§ 6*28© e*29e..€*02e_NOT_VALID_FLG = True 
GoTo BOX^E 

B0X_7: 
Rem PRVLG 

| CTRLJIBK308 8*290 IMG..FLG = True 

GoTo B0X_E 

BOX E: 
End Sub 
Rom *** PRCEND 
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Option R*pl ic\ t 
Rem SDEFPUB 
Rem PDB4N3 

Private v8*3U9_W3l9_©3&88^e%298_IN_ACCESS_KEY As Integer 

r«id pubins 

Private **8%3056_3VJ15G_8!*2aG9_8*29£>8_etf^U8 As 6*23 58 
Rem PUR5C3 

Private CTRL_WW30»_^2Se_$%29e_STS_TRAKSIT10N.KLG As Integer 
Rea PUB5Y3 

Private CTRL 19*308 8*283 9%298 STS TRANSITION FLG..P As Integer 
Ren PUB5B3 

Private CTRL m308„8*28§_GS29S_STS_TRANSITI0N_FLG_PF As Integer 
Ren PUB6F3 

Private CTRL_W©X3O©_e«3Le_§*28&_«%29e_IN_ACCESS_KEY_N0T_VALIDJ : IG As Boolean 
Rem #DEFEND 
Rem #DEFPRV 
Rem PRV2T3 

Private T§*30§ 8fc3l8 8V2S8 9*298 IN ACCESS KEY *k8H07fc As Inlegex 
Rem PRV7R3 

Private CTRL_ff&*308J?%298_ING_FLG Ae Boolean j 
Rem PUUXU 

Private CNSJ«)T_KUH_lnteger As Integer 

Private Gyou as Integer 

Privotc Rctu a3 Integer 

Private L 1 ti_Cnt as Integer 

Private Soto_Cnt as Integer 

Private Uti_Hax as Integer 

Private SotoJdax as Integer 
Kern SPKV2W3 
631628 
Reiu SPRV2E3 
Rem IPRV41T3 
0*165$ 
Rem $PRV4E3 
Res 3DEFEMD 

Public Sub MainO 
Ren SVECREP Private Sub L3_89G3ie_&*28e_G%29«_[N_ACCESS_KEY() 

B0X_1 : 
Rev PRVLG 

If V8X309..i«3ld Q&288 8X298 IN ACCESS KEY = W8*30«J»3ie_e*288J»298_IN_ACCESS_KEY Then 

GoTo B0X_2 
End If 

GoTo B0X_E 

B0X_2: 
Ren PRVLG 

8*168 

BO)i_3: 
Rem PUBL3F 
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If tfe^30^_^3]&^e«2Se_<??t208_TN_ACCESS_XEV_ffk^07e = I Then CoTo B0X_4 
GoTo B0X_t 

B0X_4: 
Rem PUBL3F 

If weX30@_e%31«_«&28#_eii298„IN_ACCESS_KEV_»lte^07§ = ] 
Then ff#*309_8^lG_6323§_eX29&_IN_ACCESS_KEY = «%Q7e 
Rem PRVLG 

CTRL_«W30§_e»28g_e%29§_STS_TRANSITI0N_FLG - CTRL_ffd%30^_e%28§_§H298>STS_TRAK3ITI0N_FLG + I 
Colo BOX-E 

Ren PRVLG 

7 f CTRL^ft%30e_e$28^^2^_STS_TRANSlTI0Njn.G_P 
= CTRLJ^0«_W28e_m9&J>TS^TRANSITI0NJLG_Pr Then 

GoTo B0X_6 
End If 

GoTo B0X_7 

Reo PRV1X 

CTRL_l?^30»_W3l«_€f%288^298_lNJC;CHSSJU:Y_NOT_VALJD_FLG = True 
GoTo B0X_F 

B0X_7: 
Ren PRVLG 

CTRl-We%30*_«*29&_lNG_FLG = True 
GoTo B0X_E 

B0X_E'- 
Eod Sub 

Reo *** PRCEND 
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Option Expl icit 
Rem tiUEFFUB 
Rem PUR4N3 

Private VW3W_eH31©_©%28«_eS299_IfLConditions.KEY As Integer 
Rem PUB1N3 

Private VW305§_3*315lMft285e_e%295@_e%200e As 0X2366 
Rem PUBSC3 

Private CTRL_*tS309_^28« 6X29§ 5TS. TRANS IT I0N_FLG As Integer 
Rem PU8SY3 

Private CTRL m30i..e%28«_e«29«_STS_TRANSTTTaN_FI.G_P As Integer 
Rem PUBSB3 

Private CTRLW#%3O0_e%28ft.^29e_STS - TRANSITION_FLr._PP As Integer 
Rem PUB6F3 

Private CTRLJEeS30B_@&3ie €?£2Se.&X2^IN_Conditions_KEY_NOT_VALin_FLG As Boolean 
Rem # DEFEND 
Rem UDEFPRV 
Rem PRV2T3 

Private ?63630e &K319 ©*28e_e*i29&_IN_Condi tions_KF.Y_»keX07G As Integer 
Rem PRV7R3 

Private CTRLJN*43QfLf&29<LlNG_FIX As Boolean 
Rem PUBKU 

Private CNS_N0T_KUN_ Integer As Integer 
Rem 5PRY2V3 

Rem $PRViiE3 
Rem JPRY4W3 

Rem IPRV4E3 
Rem &DEFEND 

Public Sub MainO 
Rem ftVGCREP Private Sub L3_W3lG_e^28©J»29e , _[N_ Conditions KEY (> 

BOX_l : 
Rem FKVIG 

3f m306_<i%31^eX28<»_eS42!)§_IN_Conditions_KEY = ¥fc9630S_6% 3 k 8_6X2 8^_6 l H2y IN^Condi t i ons_ K E Y 
Then 

CoTo B0X.2 
End If 

GoTo B0X_H 

B0X_2: 
Ren PRVLG 

B0X.3: 
Rcb PCBL3F 

If ?e%30e_eK3lft_^28«_«%29e_lN_Conditiflns^KEY_wke9&07e = 1 Then GoTo B0X_4 
GoTo 

Rem PUBL3F 

If ff^0^^3l^^Re_«tt29?_] N.Condi t ion s^KEY_wk@%07e = I 



1 27/1 61 

WO 2005/029322 PCT/JP2004/0 13806 

[0161] 

I Then W0%3O&_eX3ie_eX256_8X298_IN_Conditions_KEY • &%078 

Rem PRVLG 

C7Rl._ff^30e_^236_e9629^_STS_TRANSITIOK_FLC - Cm_B^30©_fc*28<UW29e_STS_TRANSITION_FLG * 1 
GoTo H0X_E 

B0X_5: 
Rem PRVLG 

I f CTRL_WW30«_«%28e_eit20§.STS_TRAKST TI0N_FLG w P 
= aRL_V©%30^«%28«_e\29«_STS_TRAhSIT10N_FLG_PP Tlwri 

GoTo B0X.6 
End If 

GoTo B0X.7 

I B0X.6: 
Ren PRVLG 

CTRL €ft3ie.€H28@_^299_IN_ConditionsJCEV_h'OT_VALID_FlG - True 

GoTo B0X_E 

BOX_7: 
Rem PRVLG 

CTRl_*6fc306_S%296. ING FLG = True 
GoTo B0X_E 

BOX_E : 
End Sub 

Ren *** PRCF.ND 
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Option Explicit 
Kern ffMCTUB 

Public CTR_N&" V T_PALLET_ID As String 
|Typ« Rouv«Cuiiti«jlTableType 
Mo As Tnteger 
SKID As String 
Rov As Integer 
Col As Integer 
PallD As String 
SubNo As Integer 
RouteCode As String 
NextPallets As Variant 
NPID.R3R As String 
NPID_R3M As String 
NPID_H3D As String 
NPID R3C As String 
04^1 D As String 
SendedFLG As Striny 
[End Type 

Public Rctlndexl As Integer 
Public Rctlndei2 As Integer 
Public Rctlndex3 As Integer 
Public RCI(IOOOO) As RouteControlTableType 
IRcd PIB4.N4 

Private CTR_«3ie_@*28&_e*29e_04_END As Boolean 
|Rcm PIB4N4 

Private CTR_«%3 lG_9*2Se_eTG29e_CU_CNT As Integer 
I Ren PIB4N4 

Private CTR_«ttia_e*2S9_&*29«_04_ERR As Boolean 
I Rem PUBIN4 

Private m3OS^«%315e_W285^^2959_e5i20O« As t%235t 
iRem PUB5C4 

Private CTRLJ^309_e%28*_^9«_STS_TRANSITION_FLG As Integer 
|Rem PUB5Y4 

Private CTRl_m30Ote8d_^29G_STS_TRANSlTI0N_FLG_P As Integer 
I Rem PUB5B4 

Private CTRL Jfe*30e_^8e^29$_ST5_TRANSITI0N_FLG_PP As Integer 
[Rem 04 A K VARA 
Rem 04PKYARA 
(Rem PUB5F4 

Private CTRL J^30e_^lO*28e_«*29e_^02«_NOT_ VALID J LG As Boolean 
iReu U&EFEND 
Ren 3DEFPRV 
|Reii PRV7R4 

Private CTRU»§*3O0^e*29e_ING.FLG As Boolean 
|Ren $PRV2«4 

Ren JPRV2E4 
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Rem $PRY4W4 

Rem JPRV4E4 
Rem £ DEFEND 

ISeai * ' " — " — * ~ ~ 

Public Sub HainO 
|Reti ftYECREP Private Sub 04 _6*31fc_6%28G_ **29 fLB$02 ft_€%07<>() 

B0X_1 : 
I Ren 04AKYKUU 

If 0K5O§ <> e%07« Then Exit Sub 
|Rea 04PKYKUU 

If «*508 <> e*07S Then Exit Sub 
B0X.2- 
iRem PRVLG 

|Rea PRVLG 

CTR_e%318.9%286_«%29§_t>4_END = False 

|Rea PRVLG 

CTR_««l9^28§_e%29^_04_ERR = False 
B0X_3: 
|Rea PRVLG 

If CTR 8X3 1G W28e.D*29«.04_EKD =■ False Then 

GoTo BOX_4 
End If 

GoTo BOX_5 

B0X_4: 
iRem PRVLG 

I Rem PRVLG 

CTR_&me_e*289_e*29G_04_END = True 
I Res PRVLG 

CTRL (f«%30e_^%2Se_e*29e_STS_TR.^SITI0N_FLC ^ CTRLJTC%30§_e%2S 6.^*29 8_STS_TRANS I TION_FLG + 1 
Rctlndexl = 0 

Do Until RCT < Ret Index 1). No < 1 

If RCT (Ret Index l).NPin_R3R = CTR_NEXT_PAI.I.RT_TD Then 
Rctlndex2 = 0 

Do Until RCT(RctIndex2). No < 1 

If RCT<RclIndex2).SFJD = RCT (XclEiidexl) . SFID . 

I Ren PRVLG 

And RCT(RctIndex2).04_ID = "04_IIMl«_W2SfU^W_«02tLe*07(r Then 
And RCT<Retlndex2). SenderiFLG = "l" 
Exit Do 
End IF 

Rctlndex2 - Rctlndex2 + 1 
Loop 
End If 

Rctlndexl = Rctlndexl + 1 
Loop 
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C0T0 B0X_E 

U0X_5: 
Ren PRVLG 

If CTR_e%3 10_e*2S8^%2Se_O4_END = False Then 
C0T0 B0X_6 
End If 

C0T0 B0X_ 7 

E0X_6: 
Rem PRVLG 

CTRL_WW30e_&*31^«li28^«%25!>_e%O2ej40T_VALlD.FLG = True 
Rem PRVLG 

CTR_«%3ie_e%259_W29e_04_BRR = Tru« 
G0T0 B0X_E 

30X_7: 
Ren PRVLG 

Cm_weK309_8S2W_ING_HLG = Truw 
G0T0 B0X_E 

BOX JE : 
End Sub 
Ren *** PRCHND 
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Option Rxpl i c\z 
Rem *DEFPUB 
Rem PUB4N3 

Private VWS3W_W31^©%28«,«%29«_0UT_ACCESS_K1;Y As Integer 
Hem PUB IW3 

Private ffe%3058.8%3l5@_«562S59_§%2959_^200« As* IJX2354J 
Rem PUBSC3 

Private CTRL_W§%308_^28«_e*29@_STS_TRANSITIOM_FLG As Integer 
Rem PUB5Y3 

Private CTRL 16*308 G%296 STS TRANSITION FIG P As Integer 

Rem PUB6B3 

Private CTRL_?e*30e_e«28e_§%29ft_STS_TRAKSITION_FLG_PP As Integer 
Hen PUB6F3 

Private CTRL_H&to0e_8«3Le_^2B§_@S6296_0UT_ACCESS..KEY_h0T_VALID. JLG As Boolean 
Ken #DEFEND 
Ren #DEFPRV 
Rem PRV2T3 

Private fSft%30ft_8%3l«_«<2Sft_fi»29«_OUT_ACCESS_KEY_wk^07e As Integer 
R«tn PRV7R3 

Private CTRLJM>&3»e_e329e_ING_FLG As Boolean 
Rem FUBKU 

Private CNS_N0T_KUH_Integer As Integer 
Rwa JPRV2W3 

Rvo JFRV2E3 
Reja $PRV4W3 

exiese 

Ren JPRV4E3 
Reo #DEFEND 

Public Sub Wain 0 
Reo 8VECREP Private Sub L3_^ie_e*28e_^299J)uT_ACCESS_KEyO 

B0X„i: 
Rem PRVLG 

If W^te_Q«3l«_§X2aa_«%29«_0CTJlCCESS_JCEY = m30e_^3ie_e*288_9fc29«_aUT_ACCESS_KEY Thrn 

GoTo B0X_2 
End If 

GoTo BOOLE 

BOX_2: 
Rem PRVLG 

e*iee 

B0X_3: 
Rem PUBL3F 

If *«%30e e*3ie «J5i28» «X29@ OUT ACCESS. KEY wke#>7<S = I Then GoTo B0X_4 
GoTo B0X_S 

B0X_4: 
Rem PUBL3F 

If m30«_W3ie_e%28e_e<29«_OUTJiCCESS_KEY_wke%07e = I 
Then »W30e_W3l«_««28e_©%298_OUTJkCCESS^KEY = 6*076 
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Ren PRVLC 

CTRL_F#tt09_^88_efc29$3TS_TRANSITION_FLG = CTRL_we%30e_^23©_e5629§.STS_lHAI4SITlON_rLG + i 
GoTo BOX B 

BOX_0: 
Rem PRVLC 

1 i" CTRl^.we%309_&&ide_«29§_STS_TRANSI T I0N_FLG_P 
- CTRL_W^3O6.e%288_eX29§_STS_TRANSin0N_FLG PP Then 

GoTo H0X_5 
End If 

GoTo B0X_7 

B0X_6 : 
Ren HRVLG 

CTRl^*§ , <30e_e3t3l«_««2a^©?t20e_OUT_ACCRSSJ(RY_KOT_VALfD.PLG = True 
GoTo B0X_fc 

B0X.7: 
R*» PRVLG 

CTRL_W§%30$_e*296_lNG_FLG = True 
GoTo B0X_E 

BOX_E: 
End Sub 

Rem *** PRCRVI) 
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Option Explicit 
Ret! #DEFPUB 

Ren PUB4JJ3 ! 
! Private we%30^_©%31«_6'ii280J<2»«_Oin'_Conciitjons_KEV As Jntwitei 
Rem PUBIN3 

Private WW3D5e_e%ai56_^%285e_W&295«_W200e As «5S235t? 
Rem PI1B5C3 

Private CTRL We%303 8%2S9 3*298 STS. TRANSITION FLG As Integer 
Rem PUBSY3 

Private CTRL_WWW0e_«t289_©%298_STS_TRANSIT10N_FLG_P As Integer 
Rem PUB5B3 

Private CTRL_ff8X30e.^2SS..@%29«..STS..TRANSITIOM_FLG_PP As Integer 
Rea PUB6F3 

Private CTRL ?§*30e 8%28« €*29§ OUT Conditions KEY NOT VALID PLG As Boolean 

Rea tfDEFEKD 
Ren ttDEPPRV 
Rem PRV2T2 

Private Sre3i30&_e%3L#_eX28^«%29e_OlT.Conditions_KEY_wke%0?e As Integer 
Rem PRV7R3 

Private CTRL_irG*30e_ft%29&_ING_FLG Ac Boolean 
Kern PUUKU 

Privntc CNS_NOT„Kt'H_Fntegcr An Tutegcr 
Rem $PRV2ff3 

Rem JPRV2E3 
Rem $PRV4f3 

Rem SPRV4E3 
Rem ftOEFEND 
! Public Sub MainO 

Rem iJVtCREP Private Sub L3_«63ie_»%23^W29e_WT_Conditions_KEV() 

ROX_l: 
Ren FRVLG 

If W®630e_«i31§>e%28e_et29e_0UT_Condttions.KEY - tfe*306_&ifc3l8_e%28e_e%2&e_OUT_Condittons_KEY 
Then 

GoTo B03L2 
End If 

GoTo B0X_E 

B0X_2: 
Rem PRVLG 

B0X_3: 
Kern PUUL3F 

Tf ffe5630e_W31^»3tr«^^296_OUT_Conditions_KEY_wkW07e = 1 Then GoTo B0X_4 
GoTo BOX.S 

B0X_4: 
Ren PUBL3F 

If We%30e_e%3l8_e%286_e^29§_OOT_Conditions_KEY_vke%07© - I 



1 34/1 61 

WO 2005/029322 PCT/JP2004/013806 

[El 168] 

Then m30§_§*3lM#28$_^29&_Oin_CondUions_KEY - ««*07« 
R«m PRVLG 

CTRL_fft*O0§_^28^e9C20§.ST^TRANSTTT0K_FLC = CTRL_^308^28e_^29©_STS_TRANSTTrON_FLC - 1 
GoTo B0X_E 

B0X_5 : j 
Rea PRYLG 

I f CTRI JTe?tt0e_efc28€_fc*29e_STS_TRANS I TIOM_FLG_P 
= CTRL_Te%30e_<J%2Se_W29e_STS_TRANSlI10N_KLG_PP Then 

GoTo B0X_6 
End If 

Go To B0X_7 

B0X..6- 
Rea TRVLG 

CTRL W?%30©_e*3ie_€?t289_^29^_0UT_Conditions_K£Y_W0r_VALID_FLG = True 
| GoTo BO*_E 

B0X_? : 
Reo ITIVLG 

CTRL_K8fc308.«%29e ING FLG = True 
CoTo BUX^E 

B0X_E: 
End Sub 

Rem *** PRC END 
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Option Explicit 
Ren dDEFPUB 
Ren FLB5C4 

Private CTRU_tfeX30e_^2S&_e%29e_ST5_TRANSITIOK_FLC As linger 
Ren PUB5Y4 

Private CTRL we5i3O@..eX280_«%29€_ST3_TRANSITIOK_FLG_P As IntBRyr 
Rem PUB5B4 

Frivatc CTRL_«e*30&. 6X28& «*29§ STS TRANSITlON.FLG.PP As Integer 
Rem PUB6F4 

Private CTRLWW30B_fHttl8_rc2Sejft29e_e*02e_N0T_VALLD_FLG As Boolean 
Kern # DEFEND 
Rem tfDEFPRV 
Rem *PUBRT 

Private CTR_KRXT_PAIXRT_T D.NH? As String 
Ren PRV7R4 

Private CTRL_m30M&296_TKC .Pf.G A* Boolean 
R 9 « PUBKU 

Private CNS_NOT_KIJH_String As String 
Rem SPRV2W4 
#»1728 
Rem SPRV2E4 
Kern SPRV4*4 
6*1826 
Rein $FKV4£4 
Rein JtDEFEND 

Public Sub UainO 
Rem tfVECREP Private Sub R i _6*3ie_e328e_G*296_ 6X0260 

B0X_L: 
Rcd PRVLG 

If CTR_NEXT_PAlLET.JD_NEV = CNSJ*OT^KUH_Str£ng Then 

GoTo B0X.2 
End If 

CoTo BOX_E 

BOX.*: 
Rem PRVLG 

CTR_NEXT_PAILET_ I D J^Eff = '8*100©' 
H0X_3: 
Rein PRVLG 

If CTR.NEXT. PALLET ID NEW <> CNS_NOT_KUH_String Then 
GoTo BOX_4 
End If 

GoTo BOX_5 

R0X.4: 
Ken PRVLG 

CTR_NEXT_PAI.LF.T_TP_NEW = CTR_NEXT_PALLET_ID_NEW 
GoTo B0X_E 

B0X_5: 
Ren PRVLG 
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If CTR_NEXT_PALLET_ID_NE» = CNS_N0T_KUIL3tring Then 

GoTo B0X_6 
End It 

GoTo B0X_7 

B0X_6: 
Rem PRVLG 

CTKL_»W30e_8X31»_«C23O_e%29»_8%02«_^OT_VALID_FLG = True 
GoTo B0X_E 

BUX.7 : 
Rem PRVLG 

CTRL_«&%308_8%29«_iNC_KLG = Tru« 
GoTo B0X.E 

B0X_E: 
End Sub 
Reo *** PRCEND 
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Opticn Explicit 
Ren 3DEFPUB 
Ken PUD5C2 

Privfltc CTRl_we%303_eX28e_^29e_STS_TRANSITlON_PLG As Integer 
K«m PUB5Y2 

Privntc CTRl^W^30e_ete8fUft29e_STS_TRANSITrON_FLG_P As Integer 
Kern PUBGB2 

Private CTRL_W&%30^e^2fie^2^#_^T^_*nJAWSITmN_Ft.G_Pp As Integer 
Rem PUB6F2 

Private CTRI._S§%30»_@%3ie_e*28ia_e^20«_e%02€_NOT_VALTD_PLC As Bool ean 
Rem * DEFEND 
Rem SDEFFRV 
Rem *PUBRT 

Private CTR_NEXT_PALLET_Ifl_NEW As String 
Rem PRV7R2 

Private CTRL_m30fc_e*29*_lNG_FLG As Boolean 
Ren PUBKU 

Private CNS_NOT_KUH_String As String 
Rem SPRV2W2 

Ren SPRV2E2 
Rem SrRV4W2 
0*1656 
Rem SPRV4E2 
Ram ^DEFEND 

Public Sub Main() 
Rao HVECREP Private Sub R2C_e*319_eK28§_BX29§_e%02«<> 

BOX_i: 
Rem PRVLG 

If CTR_NEXT_PALLET_1D_NEV = CKS_NOTJ(0H^Strtng Then 

GoTo BOX 2 
End If 

GoTo BOX E 

B0X_2: 
Rem PRVLG 

wise 

Rem PRVLG 

CTR_NEXT.PALIET_ID_NE» = '8*100©' 
B0X_3: 
Rem PRVLG 

If CTR_NEXT_PALLET_1 DJO <> CNSJWTJCUH.Su aiik Thwi 

CoTo BOX_4 
End If 

GoTo B0X_5 

B0X_4: 
Rem PRVLG 

Rem PRVLG 
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CTRJiEXT_PALLET_ID_NEW = CTRJ l IEXT_PALLET_ID_NEtf 
GoTo B0X_E 

Rem PRVr.G 

JJ- CTK_NEXT_PALLET_ID_NEir = CNS_KOT_KUH_String Then 

GftTo B0X_fi 
End If 

GoTo B0X_7 

B0X_6: 
Reio PRYLG 

Cm_»eX30@_eX31«_«28§_e%298_WW2^_N0T_VALID_FL6 = True 
GoTo B0X_E 

BOX 7: 
Ren PRVLG 

CTR1_1»«*3oe_e%2d8_ING_FLG = True 
GoTo BOX.E 

BOXJ-: 
Bud Sub 

Rem *** FRCEND 
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Option Explicit 
Rem JiDEFPUB 
•?e_ PUB5C2 

Private CTRL «S28§ &X29© STS TRANSITION FLG As Integer 

Ken PUB5Y_ 

Private CTRL_»6<30#_e«28e_e%29&_5TS_TRAKSITION.FLG..P As Integer 
Ren PUB5D2 

Private CTRL jrS1tt06_^23ft_$*29fL£T__TRANSlTI0NJ?LG_PP As Integer 
Ken PUB6F2 

Private CTRL^eWO€Le5fi3ie_6}i2S8_«629e_&%02«_NQfr_VAirD_PLG As Boolean 
Rem "DEFEND 
Rem #DP.FPRV 
Rem *PUBRT 

Private CTR_NEXT_PALLET_1D_NE¥ As String 
Rem PRV7R2 

Private CTRr.JT&X30g_e%2Q8_lNG_PLG As Boolean 
Ren PUBXU 

Private CNS_NOT_KtlH_Stri ng As String 
Ren JPRV2W2 
$36152$ 
Ren JPRV2E2 
Ren $PRV4W2 

Rem $PRV4E2 
Ren ^DEFEND 

Public Sub MainO 
Rem 3VECREP Private Sub R2 J^ie_<#2SS_e*29«JiB«)2fcO 

B0X_U 
Ren PRVLG 

If CTR_NEXT_PALLET_ID_NE» = CNS_NOT.KUiL.StTi ng Then 

GoTo BOX 2 
End If 

GoTo B0X_E 

B0X_2: 
Res PRVLG 

CTR_NEXT_PALLET_1D_NEW = "#%100e* 

B0X_3: 
Ren PRVLG 

If CTR_NEXT_PALLET_1D_NEW <> CN5JJOT_KUH_StrinK Then 

GoTo B0X_4 
End If 

GoTo B0X_o 

BOX 4: 
Ren PRVLG 

cnUTCXT. PALLET ID NEW - CTR NEXT PALLET 3D NEW 
GoTo B0X_E 

BOX 5: 
Ren PRVLG 
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If CTR_NEXT_PALLET_ I D_NEW = CNS_NOT_KUH_STring Then 

GoTo BOX. 6 
End If 

GoTo B0X_7 

Rem PRVLC 

CTRL„TSW30e_W3ie_§%2Se_99i29e_«^02e_NOT_VALID_FLG = True 
GoTo ROX_E 

BOX_7i 
Ren PRVLG 

CTRL_FT»3WO«_«£29e_lNG_FLG = True 
GoTo BOXJE 

BOX_E: 
End Sub 
Ron *♦* PRCEND 
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Option Explicit 
Ren #DEFPUB 
Reo PUB5C3 

Private CTRL W^30e_«^28e_Wi29©_STS_TK.\NSiriON^RG As Integer 
Kea PUD5Y3 

Private CTRL_W©*306 8*29« ST S_ TRANSIT I ON_FLG_P As integer 

Rem PU35B3 

Private CTRLjre*3<XLe*2Se_e£29«_STS TRANSITION FIG. PP As Integer 
Rem PUB5C2 

Private CTRLJ?2_«%28§_9*29e_STS_TRANSlTlON_FLG As Integer 
Rem FUB5C4 

Private CTRL^4_e^2«§_99i20^STS_TRAK5vTTTON_Fl.C As Integer 
Ren PIB6F3 

Privet© CTRL_W30^W319_e^8€^20^B55O2d_NOT_VALID_FLG As Boolean 

Rem 3DEFEND 
Reo ijDEFPRV 

Rem *PUBRT 

Private C?R_NEXT_PALLET_ID_NEW As String 
Rem PRV7R3 

Private CTRL_TO*309_e*29G_ING_FIX As Boolean 
Rem PUBKU 

Private CNS_NOT_KUH_String As String 
Rem 5PRV2W3 

Rem SPRV2E3 
Ren JPRV4V3 
0*1668 
Ren 5PRV4E3 
Rem ftDEFEND 

Public Sub MainO 
Rem #VECREP Private Sub R3R_&%31§_G%286 G*29« 9*0290 

BOX_l: 
Rem PRV1.G 

If CTR_NEXT_PALLET_ID_NEW = CKS^NOT_KUH_String And _ 
Rem PRVLG 

<CTRIJ?4_«%283_S%29$_STS_TRANSITI0N_FLG <> 0 Or _ 
Rcia PRVLG 

CTRL_W2.«;28«_W29e_STS_TRAKSlTlaH - FLG <> 0) Then 
GoTo BOX_2 
End If 

GoTo B0X.E 

BOX.2 : 
Rem PRVLG 

CTR_NEXT J*ALLET_ I D_NEff = '$%100$' 
ROX.3: 
Rem PRVLG 

If GTRJJEXT_PALLET_ID_NEW O CMS..N0T XUH String Then 
GoTo BOX_4 
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End If 

CoTo BOX 5 

B0X_4: 
Rem PRVLG 

CTR_NEXY_FALLtT_lD_NEtf = t TR_N£X?_PAlLET_)D_NEV 
GoTo BOX_E 

BOX_ti : 
Bftfl) PRY1.G 

If CTR_NEXT_PALLET_ID_NEW - CNS_NOT_KLH_5triiiK Then 

GoTo B0X_6 
End If 

GoTo B0X_7 

B0X_6: 
Ren PRVLG 

CTRL.W@%30§.eX3ie_e*28^29^§%02§_NOT..VALID_FlG - True 
Go To B0X_E 

BOX 7: 
Rem PRVLG 

CTRL..W&*30§_@%298_LKG. FLG = True 
GoTo BOXJE 

Gnd Sub 

Rem *** PRCEND 



[iai77] 

Option Explicit 
Ren fcDRPPUB 
Run PUB4N4 

private w«%3oe_e<3]e_8Kzft@„e%2fle_exo2e as e%2ae 

Ren ^DEFEND 
Ren ftDEFPRV 
Ren PUBKU 

Private GNS_N0T_KUH_e*23« As 6%23fc 
Ren ^DEFEND 

Public Sub WninO 
Ken ftVECREP Private Sub $4_«H31§_mB&_W2»e_W02W%O4«l3 0 

BOX.i: 
Ren PUBIN 

BftX_2 : 
Hen PUBJUt 

B0X_3: 

B0X_4= 

BDX_5: 

BOX 6: 

B0X_7: 

BOX E: 
End Sub 
Ren *PRCEND 
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Option Explicit 
Rem SDEFPUB 
Ken PUB4H4 

Private m30§_ett31§J»X28G„eK29e._e%02e As 3X233 
Rem SDEFEND 
Rem 8DEFPRV 
R*jj PUBXU 

Prirate CNS_N0T_KUK_eX23g As g*23& 
Rem flDEFEND 

Public Sub MainO 
Rem #YECRHP Private Sub S4_%%2\Q_Q%2&%_W2M_m2Q®lQA$l4() 

BOX_i: 

BOX.2: 
Ren PUBKK 

BOX.3: 

BOX_4: 

BOX_B: 

BOX.6: 

BOX_7: 

UOX_E: 
End Sub 
Rem *PRC£ND 



[0179] 

Option Explicit 
Ren 8DEFPUB 
Rem PUB4N4 

Private *S%30& 9%3l» 6*288 ©*299_IN_Coiiditions_KEY As Inteiier 
Rem PUU4K4 

Private ?ft*30&_&£31#_eS28e ©X29& IN ACCESS. KEY As Integer 
Ken PUD4N4 

Private CTR_0fc3 1 ftJtt28fL0X29G_O4_END As Boolean 
Rem ^DEPEND 
Ren «DEFPRV 
Rera PUBKU 

Private CNS_NOT_KUH_Integer As Integer 
Rem ^DEFEND 

Public Sub MainO 
Rem 3VECREP Private Sub S4 8*3l«..§%28»_e*29IJHfi402«W0^18O 

B0X_i: 
Rem PUB04STS 

If CTR_eme_e*28e_e*29e_04„EXD <> True Then GoTo BOX_F 

R0X_2: 
Rem PUBKK 

B0X_3: 

B0X^4: 

ROX.5: 

B0X_6: 

B0X_7. 

B0X.E : 
End Suh 
Rem *PRCEND 
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Option Explicit | 
Ren &DEFPUB 
Ken PUB4N4 

Private m30&_e*3 10*288. 9*298 «%02« As 8X23* 
Rem PUB4N4 

Private CTRJfr 3 1 »_«*28e_e*29e_04_END As Boolean 
Ren &DEFEND 
Ren #DEFPRV 
Ren PUBKU 

Private CNS_NOT_KUHJtt23e As 8fc23e 
Rea # DEFEND 

Public Sub RtainO 
Reo 3VECREP Private Sub S4_WWl»_e%2a«-^»«L««02#WU4»15O 
B03L1: 
B0X.2: 
Ren PUBXK 
B0X_3: 
B0X_4: 
BOX. 5: 
B0X_6: 
BOX .7: 
BOX^E: 
End Sub 
Ren *PRCEND 
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Option Explicit 
Rep #DEFPUB 
Rem PUB4N4 

Private *frfc30fc ^3ie_e%28&J#29e_OUT_Condit ions. KEY As Integer 
Ren PUB4N4 

Private *%¥AOQ 8*288 8%29€ OUT- ACCESS.. KEY As Integer 

Ren PCB4N4 

Private CTR_©fc3l<UK2S8_e9&298_04_END As Boolean 
Rem 8 DEFEND 
Rem gDEFFRY 
Ren PUBKU 

Private CNS_NOT_KUH_ Integer As Integer 
Ren KDEFEND 

Public Sub MainO 
Ren fiVECREP Privatt, 5ub S4_«%3ie_e%28»_»«2W_W02e8WM©18 0 

BOX.l : 
Ren PUB04STS 

If CTR_e«3l&_9*28^«%29§_04_EtfD <> True Then CoTo BOX.E 

B0X.2: 
Ren PUBKK 

B0X_3: 

B0X_4: 

BOX 5: 

BOX_e: 

B03L7: 

BOXJE: 
End Sub 
Ren *PRCEND 
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cm 182] 

&mm}\* o t±s4 

Option Explicit 
Ren 4DEFPUB 
Ken PUB4N4 

Private W6*30e_e*3ie_e562$e SK299 «%026 As e%23« 
Ren PUB4N2 

I Private CTR_^3lB_«£$e_GX29ej)4_ENI> As Boolean 
Rem 8DEFEND 
Rem #DEFPRV 
Ren PRV7R4 

Private C iRLjrefc30«_G*299_]MG_PLG As Boolean 
Ren PUBXU 

Private CNS_W0T_KUH_e%23t As 3*23$ 
Ren #DEFEND 

Public Sub MainO 
Rem iJVECRBP Private Sub S4_WWl0_e%239_B*298_«HO2mO4#l6O 

B0X_i: 
Rem PIB04STS 

If CTR_«*3ie_e*28&_©fc29e_04_£ND <> True Then GoTo B0X_B 
B0X_2: 
Ren PL'BKK 
B0X_3: 
UOX_4 : 
B0X_5: 

boxjj: 

B0X_7: 
I BOX.t: 
Hnd Sub 
Ken *PRCEND 



[H183] 

Option Explicit 
Ren ftDEh'FUB 
Rein PIIB4N4 

Private m30e_^3ie_e%28^e%29«_«%02e As 8%23« 
Rem PUB4K2 

Private CTR_«Wie_«2S9_&*2W_04_END As Boolean 
Ren tfDEFEND 
Ren rfDEFPRV 
Rea PRV7R4 

Private CTRL_¥65fi3G8_G*29fLING_FlG As Boolean 
Rem PCBKU 

Private CNS_N0T_KUH_f&23fc As 6*23* 
Ren * DEPEND 

Public Sub MainO 
Reo SVECREP Private Sub S4_3%3 l%_Q\Wd_Wf&_Q%Q2 &©WM9 1 6 0 

BOX.i: 
Reo PUB04STS 

If CTR_e*3l&_i&28ej#29e_04_F.ND <> True Then GoTo B0X_E 

B0X.2: 
Ren PUBKX 

B0X.3: 

B0X_4: 

B0X_5t 

B0X_6: 

BOX 7: 

B0X_E: 
End Sub 
Reo *PRCEND 
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[0184] 

Option Explicit 
Ren JtDEFPUB 
Rea PUB4K4 

Private W§«09.eX3l9_^28@_9*298_^02^(^%25&, «5627«) As es&3« 
Ken PUB4N2 

Private CTR_eX3l8 «%2Se_e*29S_04_END As Boolean 
Rea DEFEND 
Ben #DEFPRV 
Ren FKV7R4 

Private CTRU_W8*30#_Q)k29*_lMGj 5 t6 As Boolean 
Rem Pl'BKU 

Private CNS_N0T_Ki:hVe*238 As ^2 3 ft 
Res UDEFEND 

Public Sub MainO 
Res KVECREP Private Sub S4_W31«_i?k2B9_«%2y€_«%02e©W)4«l6O 

BOX^i: 
Rem PUB04STS 

If CTR_e*31&_&3t28e_fi£23§_04_RND <> True Then GoTo BOX E 

BOX 2: 
Rem PUBKK 

BOX 3 = 

B0X_4' 

B0X_5: 

BOX_6: 

B03L7: 

BOX.E: 
End Sub 
Rem *PRC£ND 



[0185] 

Option Explicit 
Rem 3DEFPUB 
Rem PUB4N4 

Private ve%30«5_^3ie_»»289_^29e_eX02*(«%26e, §%278) As ^239 
Rea PUB4N2 

Private CTR 6*318 9*288 .«629<L<M_ END As Boolean 
Ren tfDEFEND 
Ren ttDEFPRY 
Ren PRV7R4 

Private Cm_W§%30&_fc*29fLlKG_Fl.G As Boolean 
Ren PUBKU 

Private CNS_N0TJCU£Ue*23g As 691238 
Rett S DEFEND 

Public Sub HainO 
Rem #VECKEP Private Sub S4_lj%3]&Jtt28#_eS29&J&*(>2»W04*L6 0 

B0JL1: 
Rem PUB04STS 

If CTR.e%3l^e%2$«_«%29S_04_ENI) <> True Then GnTo BOX.B 

B0JL2: 
Rea PUBKK 

BOJL3: 

B03C_4: 

BOX 5: 

BOJL6: 

BOX 7: 

BUX_E: 
End Sub 
Rem # PRC-END 
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[0186] 

Option E^p Licit 
Rem 8DEFPLB 
Ren PUB4N4 

Private W«%306 «%316. (W23e.e%29«J?*02<» As <f*23S 
Ken PUB4N2 

Private CTR_efc3ie_&62S6..fc*29© OH END As Boolean 
Ren ttDEFEND 
Ren 4DP.PPRV 
Rem PRV7K4 

Private CTRLj>G%30§_e*20£_TNG_Pl.C As Boolean 
Rem PIBXU 

Private CNS_N0T_Kl'O*236 As «£23& 
Ren * DEFEND 

Public Sub MainO 
Reo gVECREP Private Sub S4_«%3 L«_^2B8_«%29e_W02 96X0481 C 0 

B0X_l: 
Rem PUB04STS 

If CTR_W3l€_^28«_«*29^04_END <> True Then CoTo ROX.F. 

BOX 2 - 
Rem PUBKX 

BOX 3: 

B0X_4: 

BOX_5: 

BU)U>: 

B0X_7: 

BOX_£: 
End Sub 
Rea *PRCEND 



[B187] 

Option Explicit 
Ren tfUEFPUB 
Rem PUR4N4 

Private W^30©_e«31«.W2S9_^29^_W2^ A* 3*23$ 
Rem PIJB4N2 

Private CTR_«t3ie_«62^9^e»299_04_E>fD As Boolean 
Rem ^DEFEND 
Rem 3DEFPRV 
Re» PRV7R4 

Private CTRL_^30§.©%29© INC FLG Ae Boolean 
Ren PUBKU 

Private CNS_KOT_KUH_^230 As 0*236 
Ken KDEKEND 
; Public Sub NainO 

Rea fJVECREF Private Sub S4_«43l«_©9>2Be_«'X29«_W02mO4ei6O 

BOX.l: 
Rem PUB04STS 

If CTR_e%3ie_&i28«J#29fL01_END <> True Then GoTo B0X_E 

B0X_2: 
Rem PUBKK 

B0X_3: 

B0X.4: 

B0X_b": 

B0X_6: 

B0X_7: 

BOX_E: 
End Sub 
Ren *PRCP.ND 

I 
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[El 188] 



Option Explicit 
Rem dDEFPUB 
Rem PUB4N4 

Private V6%30Gl8%3 1 &_§ft28(L 6^6298 e*02©t«%26G, G*27e> As 6%23<? 
Ren PUH4N2 

Private CTR_(&3ie_eK28&_e*29e_04_END As Boolean 
Ren tlDOKCNU 
Ren &PEFPRY 
K«a PRV7R4 

Private CTRL^»W30^_8X29«_ING_FIG As Boolean 
Ren PUBKU 

Private aJS_JJ0T_KUH_e*238 As 8*23@ 
Rem #DEF£ND 
Public Sub UainO 

Rem 8VECREP Private Sub S4_eX3l9_&*28e_eS29*L©meW>4gl60 

B0X_i: 
Reo PUB04STS 

If CTR_e*3l&_e*28a__«%29§J)4_END <> True Then CoTo B0X_E 

Ren PUBKK 
B0X.3: 
UOX_4= 
BOX_6: 
BOX_6: 
B0X_7: 
BOX_E: 
End Sub 
Rem *PRCEND 



[0189] 

Option Explicit 
Ren fcDEFPUB 
Rem rUB4N4 

Private W«%3Q@_e*3l8 8*286 W299. e%02e(e*26fe\ 9S27@) As §*23Q 
Ren PUB4N2 

Private CTR_«31ft_^28e_e%29^04_£N» As Boolean 
Ren BDEFEND 
Ren fiDRFPRV 
Hen PKV7R4 

Private CTRL_W#%30§Le%29g_FNG_FLG As Boolean 
Rum PUBKU 
Private CNS_N0T_KUK_e%23e As 6*238 

Rem &DEFEND 

Public Sub MainO 
Reo #VECRIP Private Sub S4_6%3ie_e*28g_e%29e_©*0268%04ei6 0 

B0X_1 : 
Reo PUB04STS 

If CTR_§*3 1 •_8%28&_§%29@_CH_EJ4D <> True Then GoTc BOX.E 

BOX 2: 
Ren PUBKK 

BOX 3: 

B0X_4: 

B0X_5: 

1WX.6: 

BOX_7: 

BOX_E: 
End Sub 
Rem *PRCEND 
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[0190] 



Option Explicit 
Rem 3DEFPUB 
Re* PUU4N4 

Private srfiX30«_6%3l©_^28e_e^29e_^02§ As 6X23* 
Reu PUB4N2 

Private CTR_GWlG_eH28S_e%29<L04_END As Boolean 
Ken ft DEFEND 
R«n feDEFPRV 
R«» PRV7 R4 

Private CTRL_W^5C30e_»9i29^INGJ : LG As Boolean 
Ren PUBKU 
Private CNS_N07_KUH^»*23« As 6*23& 
Rem ^DEFEND 

Public Sub MainO 
Rem ftVECREP Private Sub S4_e%31§_e&28e_e*2B§_e*0 2^0461 60 

BOJLi: 
Ren PUB04STS 

If CTR_e*31&_G£28$_e?f29ej)4_ENI> <> True Then OoTo 50X_E 
B0X_2: 
Rem PUBKK 
BOX_3: 
UOX_4 
BOX_6: 
BOX_G: 
ROX_7 
BOX_E: 
End Sub 
Rem *PKC£ND 



[0191] 

Option Explicit 
Ren bDEPPUB 
ken PUD4N4 

Private W«%3O(L0*31fLeX28e_e%29e_Q*O2e As SK233 
Hem PUB4N2 

Prfvete CTR_Waift_ffii28JL«%29e_04_Elfl) As Boolean 
Ken DEFEND 
Rem MBFPRV 
Ren PRV7R4 

Private CTRL_W§S3&e_e*29e_ING_PLG A* Boolean 
Ren PUBKU 

Private CNS_N0T_KUH_9*23e As 6*2 3& 
Rem DEFEND 

Public Sub MainO 
Rem JtVECREP Private Sub S4_e*3ie_eX280_e*29$_e9H>2«GSO4ei6 0 

B0X_i: 
Ron PUB01STS 

If CTR_&*3]$_G3S28&_$*29&_04_END O True Then GoTo BOX_E 

BOX_2: 
Ren FUBKK 

BOX_3: 

U0X.4: 

BOX_5: 

BOi_6: 

BOX_7: 

BOX_E- 
Rnd Sub 
Rem *FKC£ND 
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[El 192] 



Option Explicit 
Ren tfDEFPUB 
|Rem PUB4N4 

Private *eX30e 92316. e*28e_S«2W_WG2e (B*26G, Ift2?§> As W236 
[Rem PIB4N2 

Private CTR..g*3ie GS28© 6X293 04 END As Boolean 
|R«l ^defend 
Rest SDEPPRV 
I Reu FRV7R4 

Private CTR1.J7e*aGe_§*29&_TNC_FLG As Boolean 
[Ren PUBKU 

Private GNS_NOT_KUH_&&23© As #*23@ 
iRen ^DEFEND 

Public Sub MainO 
IRen ffVECREP Private Sub S4»«%31«_«%283_W629e^02W»O4«16<) 

BOX.l: 
I Rem PUB04STS 

If CTR_e*31@_§X28e_#<29e_04_eND <> True Then GoTo BOX^E 

BOX 2: 
I Ren PUBKK 
BOX. 3: 
BO£_4: 
B03L5: 
DOX_6: 
BOX^7; 
UOX_E: 
I End Sub 
Rem *PRCEKD 



[El 193] 

Option Explicit 
Ren frDEPPUB 
Ken PUB4N4 

Private W«%30G_f!*31&_e9i289„e%29e_©%02e (GX268. 8*278) As G%23& 
Ren PUB4N2 

Private CTR_P^3 lfc_e&28e_e%2Se_(M_END As Boolean 
Ren ^DEFEND 
Rem JWEFPRV 
Re* PRV7R4 

Private CTRL_W309_8fc298_ING_PLG As Boolean 
Rem PUBKU 

Private CNS_N0T_KUK_e%23e As 3*23$ 
Rem JtDEFEND 

Public Sub WaihO 
Rem tfYECREP Private Sub S4_eti3ie_«%288_eS29e_B9W)2«eX04ei5O 

BOX_i: 
Rem PUB01STS 

If CTR_9*3ie_e*28&_e%29©J>4_END <> True Then CoTo BOX_E 

BOX_2: 
Rem PUBKK 

BOX_3: 

B0X_4: 

BOX_5: 

BOX_€: 

BOX_7: 

BOX_E: 
End Sub 
Rem *PRCEMU 
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[El 194] 

Opt ion Explicit 
Ren *** VECDEF 
Rea gDEFKJB 
Sen PUB4N4 

Private ¥«5630e_e\318^2a9L«%2y«_eW>2« As 
Rem ft DEFEND 
Rem ftDEKPRV 
Rem PUBPKY04 

Private CTRL_W^30^8X31^e%28i_&9^9»_8^028_OUT_CoiiUitionsJtEY^OT_VALlD_KLG As Boolean 
Rem PUBKU 

Private CNS_K0T_KUK_8%236 As §56238 
Rem #DEFEND 

Public Sub MainO 
Rea ttVECREP Private Sub S4_t%3 ie_^%2a«_^29^^02«W04C 1 7 <) 

BOX l: 
Rem PUBPKY04 

If CTRL ?6*303 «%3ie %%2S% OL'T Conditions KEY HOT VALID PIG = True Then GoTo B0X_E 

BOX_2= 
Rcq PUBKK 

D0X_3: 

BOX_4: 

BOX_5: 

BOX_6: 

BOX_7: 

BOX_E: 
End Sub 
Rem *PRCF.ND 



cm 195] 

Option Explicit 
Ren *** VECDEF 
Ren ttDEFPUD 
Ren PUB4N4 

Private W@%309_§*3 1 As &%23© 
Ren ^DEFEND 
Ken KDEFPUB 
Rem PUBPKY04 

j Private CTRLJi^30^W31i_^2B»_^9^eX02§_UUT_Conditions_KEVJ<OT_V^LID_FU As Boolean 
Rem PUBKU 

Private CNS_N0T_KUH_e*23« As 
Rem SDEFEND 

Public Sub MainO 
Rem «Y£CREP Private Sub S4_e*3ie_eX28e_ett29@_§Xl>2$e%04ei7<> 

BOX l: 
Ren PUBPKY04 

If CTRL WG*308 9%3ie.§%286..eX2^ OUT Condi tions_XEY. NOT. VALID..FLG = True 
Then GoTo B0X_E 

B0X_2: 
Rea PUBKK 

BOX_3: 

BOX_4: 

BOX_5: 

BOX_6= 

B0X_7: 

BOX_E: 
End Suh 
Rem *PRCEKD 
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[El 196] 

Option Explicit 
Rem 3DEFPUB 
Kec PUD4.14 

Private ffe%308_«%3l9_^28@_€«29©_e*028 As 62239 
Re*> UDEFEND 
Ren &DEFPRY 
Ken HUBKU 

Private CNS_NO7_KUH_e?£30 As ^623© 
Ken SDEFEW) 

Public Sub MainO 
Ren tlV'ECREP Privalu Sub S4_W31&_^8«Lro29e_^O2WJ5S043l8 0 

BOX_i: 

B0X_2: 
Rem PURXK 

B0JL3: 

BOX_4: 

BOX 5: 

B0X_6: 

B03C7: 

BOX_E: 
End Sub 
Rem *PRCEND 



[mi97] 

Option Explicit 
Rem fcDEFFUB 

Rem Pimm 

Private »95i30#_&9m&_$%28e_e*29$_frX02e As G*23& 
Rem ttDEPEND 
Rem tlVEFFRV 
Rem PUBKU 

Private CNS_N0T_KUH_«%23« As «%23e 
Rem ttDEFEND 

Public Sub MainO 
Rem ttVECREP Private Sub S4 9*316 e*28«„e*293.@*O2e«*0<ieia 0 

B0X.L: 

BOX.2: 
Kern PUBKK 

BOX_3: 

BOX_4: 

BOX_6: 

BOX.6: 

ROX_7: 

BOX_E= 
End Sub 
Rem *PRCEND 
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[EH 198] 

Option Explicit 
Rem 8DEFPUB 
Rein PU1UN4 

Privaxc l«%3O0_e%31«_e%28ft_©9i29e_^O2«(^26».«%27e> As 894238 
Ken 4 DEFEND 
Ren aORFPRV 
Ren PUBKL' 

Private CNS_NOT_KUH_**23& As 6*236 
Rea ^DEFEND 

Public Sub MainO 
Rem JfVECREP Private Sub l8_e*28e_e*2 98,6X02^0 4 &180 

! BOI.L: 

BOX_2: 
Rem PUBKK 

BOX 3: 

B0X_4: 

BOX. 6: 

BOX.6: 

BOX.7: 

BOX_C: 
End Sub 
Ken *PRCEND 



[0199] 

— ■ ■ ■ — - 

Option Ezplici t 
Ren ttDEFPCB 
Ren PUB1H1 

Private 1^308.6^ ia_$S28a_$%29e_e*02e (6*263. &&27«) As S*236 
Ren ttDEFEND 
Reo ftDEFPRV 
Rem PUBKU 

Private CNS_N0T_KUH_«23G As 8fc23& 
Ren # DEFEND 

Public Sub MainO 
Ren itVECREP Private Sub Si &%3l8 0X286 ©%2&8 8&O2«e$0ieiSO 

BOX_l : 

BOX 2: 
Ren PUBKK 

BOX_3: 

BOX.4: 

BOX_S: 

B03LC: 

BOX.7: 

BOJLt: 
End Sub 
R«o * PRC END 
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[0200] 

Option Explicit 
Rem 3DEFPUB 
Rem PUD4N4 

Private ff^30e_^31§_@%2Se_e«29*_e*02& As «%23fc 
Ken ij DEPEND 
Ren toDEFPRV 
Reii PUDKU 

Private CNS_N0T_XUH_&fc23« As 6X238 
Ren feDEFEttD 

Public Sub MainO 
Ken fcYECREP Private Sub S4_€%3ie_8*2»8_«%29e_t%02e«%04«l8 0 

BOX_l : 

BOX.2: 
Ren PUBKK 

BOX_3: 

BQX_4 ; 

B0X_S: 

R0X_6: 

B0X_7: 

B0X_E: 
End Sub 
Rem ♦PRCEKR 



[0201] 

Option Explicit 
Rbd WEFFVB 
Rem PUB4N4 

P^iva^e W€%308_e^3ie^23^«%298^XO2§ As G%238 
Ren #DEFEND 
Rea #DEFPRV 
Rera PI1BKU 

Prirate CKS_MOT_KUH_f«23e As e*23« 
Rem #DEFEKD 

Public Sub MainO 
Rem *VECREP Private Sub S4_g^3 1 ©_e%286_e*23 &_&%02$S*0-J 81 8 O 



BOX_l ■ 




BCHL2 • 




R«a PUBKK 


BOX.3 : 




BOX_4 




BOX_5 




BGX_6 




BOX. 7 




BOX_E 




End Sub 


Retn *PRCEND 
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[0202] 



Option Explicit 
Ren &DEFPUB 
Ren PUB4N4 

Private m30»_^3l@_Q^286_^25e_?%02e (§*26$. 6*276) As S*23« 
Ren 8DEFEND 
Rerti 8DEFTRV 
Rem PUBKU 

Private CNS_NOT_KUH_e*23e As @*23S 
Rem 8 DEFEND 

Public Sub MainO 
Ren #VECREP Private Sub S4_^3ie_«*28a_§%29e_99W2eW04§l8{> 

B0X_L: 

R0X_2: 
Kep PUUKK 

BOX_3: 

B01L4: 

BOX_5: 
! BOX.6: 

BOX. 7: 

BOX_E: 
End Sub 

Rem *FHCEND 

[0203] 

Option Explicit 
Rem JtDEFPUB 
Run PUB4N4 

Private W^30e_©*31§.«28^e*29^WO2§(§%2?^9K278) As 9%236 
Ren # DEFEND 
Ren tfDEFPRV 
Ren PRV7R4 

Private CTRL_W^30»_W29«_ING_FLG As Boolean 
Ren PUBKU 

Private CKSJfOl_KUtLe*23e As B&3& 
Ren 8DEFEND 

Public Sub i(ainQ 
Rea #VECREP Private Sub S4. W31©..e9628e..§^298_e%O2m0 18180 



B0I_1 : 




B0X_2: 




Ren PUBKK 


B0X..3: 




B03L4: 




BOX_6 








BOX_7 




BOX^E 




End Suh 


R«d *HRCLMD 
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[0204] 

Option Explicit 
Ren bDRPPUB 
Ren PUB4N4 

Private ¥W30e_e<3iej»*28Q_e*29e_GX02e As Q%22& 
Rem # DEFEND 
Hen JiDEFPRV 
Ren PUBKU 

Private CNS_KOT_KUH_e%238 As fi*23& 
Ren #DEFEND 

Public Sub UainO 
Rem ttVECREP Private Sub S4_e*3)8_&*2S$_e*299_3*028§»04ei8 () 

D0X_i: 

B0X^2: 
Rem PUBKK 

BOX_3: 

B0I,4: 

BOX_5: 

BOX_<5: 

BOX_7: 

BOX_E: 
F.nd xSub 
Ren *PRCEND 



[0205] 

Option Explicit 
Rem 1?DEFPUB 
Rem PUB4N4 

Private W^OCLe%3ie_@X2&flJft29fl_G*028 Ac «%239 
Rem £ DEFEND 
Rem SDEFPRV 
Rem PUBKU 

Private CNS_NOT_KUK_€*23S As 6*2 3 & 
Rem DEFEND 

Public Sub MainO 
Rem &VECKEP Private Sub S4,W3ie_©»2S«_«*29C_^2W%04eLa () 

B0X_i: 

B0X_2: 
Rem PUBKK 

B0X_3: 

B0X_4 : 

BOX. 5: 

BOX_6: 

BOX. .7: 

BOJLE: 
End Sub 
Rem *FRCEND 
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[IU206] 

* 

Option Explicit 
Re* dDEFPUB 
Ren FUR4K4 

Re» SDEFEND 
Ren 3DBFPRV 
Ren PL'BKU 

Private CKS_KOT_KlK_#%23<j As <fl£23G 
Ren 3DRFBKD 

Public Sub MainO 
Ren JjVECREP Private Sub S4_^31^t%28e_«%29S_e%02ee\O4«18() 

BOX_l: 

B0X.2: 
KejQ RUBKK 

BOJL3: 

B0X_4: 

B03L.5- 

B0X_6: 

BOX_7 : 

BOX_E= 
End Sub 
Ren *PRCFJ*D 



[0207] 

Option Explicit 
Rem 3DF.FPUR 
Rem PUU4N4 

Private B«%30e_eX3 1«_«%28«_«%29«_WW2© («X26#, 6*27^) As 
Rem #DEFENf) 
Rem ttDEFPRV 
Rem PUBKU 

Private CNS_N0T_KUB_G*23« As 8&23G 
Rem #DEFEND 

Public Sub MaiuO 
Ren #VECREP Private Sub S4_£*3 1 8_e%28S_e%29e_e%029e%049 1 8 0 

B0X_l : 

BCQL2: 
Ryu PUBKK 

B0X_3: 

B05L4: 

B0X_5: 

B0X..6: 

B0X_7: 

B0X_E: 
End Sub 
Rem *PRCFND 
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[0208] 

Option Explicit 
Ren *** VECDEF 
Ren PDEFPUB 
Rem PUR4N4 

Privale m308_©)b3ie_*3628»_e*29fc_eW>2» As e£23& 
Rem #DEFEND 
Rem JfDEFPRV 
Rem PUBKU 

Private CNS_Kl>T_KUtLe&!39 As «9S23« 
Rem ^DEFEND 

Public Sub MainO 
Reo JtVECREP Private Sub S4_«%31*_«%28U_W2W^4«02m04^18 0 

BOX l: 

B0X_2: 
Reo PUBK& 

B0X_3t 

B0X_4 : 

BOX_5: 

BOX 6- 

ROX_7: 

BOX.E: 
End Sub 
Reo *PRCEND 



[0209] 

Option Explicit 
Rem *** VECDEF 
Rem #PEKPUB 
Ret) PUB4K4 

Private ¥«%30©_WUie_e*28e^eX298_e*02§ As «*23G 
Ken tfDEFEND 
Ren &DEFPRV 
Ren PUBKU 

Private CNS_J»T_KUH^©«23e As ©2236 
Ren ttDEFEND 

Public Sub MainO 
Ren dVECREP Private Suh S4.C&3 I e_e%28e_6S29 8_e^02« 65604618 0 

B0X_i: 

BOX 2: 
Rem PURKX 

B0X_3: 

B0X_4: 

BOX. 5: 

B0X_6: 

B0X_7: 

B0X_E: 
End Sub 
Rem +FRC0ND 
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[0210] 

■ ' 

Option Explicit 
R eo *** VECDEF 
Rcd #DEFPUB 
Ren PUD4N4 

Private m308_3S31«_TO28e_^299_e9M>2©(©5£6&, «%27©) As 9%23« 
Rcta iiDEFEND 
Ren #DEF?RV 
Reta PUBKU 

Private CNS_N0T_KUH_e*23e As 
Rem 8DEFEND 

Public Sob MaiuO 
Rem flVECREP Private Sub S4_««31«_«%2e«_«%29«_0*O20««O4ei8O 

BOX_l : 

D0X_2: 
Ren PUBKK 

BGX_3: 

B03L4: 

B0X_5: 

B0X_6: 

D0XJ7: 

B0X_E: 
End Sub 
Rem *PRCEND 



[0211] 

Option Explicit 
R va , *** VECDEF 
Rem &DEFPUB 
Rem PUB4N4 

Pi ivalw ffWi30».Wi3ie_«*28»_«%2&»^t)2B(8%26^ 0*27^1 As 3X239 
Rem ^DEFEND 
Rem SDEFPRY 
Reo PUBKU 

Private CNS_NOj_KUHJ0%23« Ax **23B 
Rem #DRFEND 

Public Sub MainO 
Reo itVECREP Private Sub S4_«%31«_^28»_»%29«„«&02m04lf 18 () 

B0X_l: 

BOX_2: 
Reo PUBKK 

B0X_3: 

B0X_4: 

B03L.6: 

BQX_6: 

B0X_7: 

B0X_E: 
Eud Sub 
Ren *PRCEND 
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